Ya vimos como crear el modelo, dijimos que mostraremos como crear el archivo de modelo, pero mejor mostraremos como generar el texto del controlador en base a los campos de la tabla, es un poco mas fácil
a continuación les dejo el código fuente
Imports System.Windows.Forms
Public Class frmCreaCatalogo
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Dim strModelo As String
Dim strControlador As String
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\CREADORMVCPHP", "txtTabla", Me.txtTabla.Text)
strModelo = crearModelo.generaModelo()
strControlador = crearControlador.generaControlador()
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub btnRuta_Click(sender As Object, e As EventArgs) Handles btnRuta.Click
dlgRuta.ShowDialog()
txtRuta.Text = dlgRuta.SelectedPath
End Sub
Private Sub frmCreaCatalogo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Not My.Computer.Registry.GetValue("HKEY_CURRENT_USER\CREADORMVCPHP", "txtTabla", Nothing) Is Nothing Then
Me.txtTabla.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\CREADORMVCPHP", "txtTabla", Nothing).ToString()
End If
End Sub
End Class
Saludos y espero que les sirva
1 pingback