man1951

Tengo una función V.B. 6.0 funcionando correctamente y en Excel lee los valores de los textBox, pero no entra a borrarlos. Public Sub Limpia() Dim miControl As Control For Each miControl In Me.Controls If TypeOf miControl Is TextBox Then...

Public Sub CentraForm(tmpF As Form) Dim x As Integer, y As Integer y = ((Screen.Height) - tmpF.Height) \ 2 x = ((Screen.Width) - tmpF.Width) \ 2 tmpF.Move x, y End Sub El error es que no reconoce el Tipo Form. Esta función yo la utilizo en VB 6.0 sin...

Antes quizá no fui muy conciso en la explicación. En el Listview hay cerca de 500 lineas, pero solo se muestran 50. Cuando hago la búsqueda se posiciona una vez localiza la linea y si se encuentra en los 50 visualizado observamos que lo marca...

Private Sub TipoAlimento_Click() Este es el combo Dim Alimento As String Dim tItem As String Dim I As Integer Alimentación.SetFocus Alimento = TipoAlimento.Text For I = 1 To Alimentación.ListItems.Count tItem = Alimentación.ListItems(I) If tItem =...

Private Sub Carga() Dim I As Integer, Matriz() As String, J As Integer Dim Pos As Integer, NumReg As Integer Application.ScreenUpdating = False NumReg = 1: Pos = NumReg - 1 ReDim Matriz(Pos, 0 To 3) Range("A1").Select Do While ActiveCell <> Empty...

Private Sub Carga() Dim I As Integer, Matriz() As String, J As Integer Dim Pos As Integer, NumReg As Integer Application.ScreenUpdating = False NumReg = 1: Pos = NumReg - 1 ReDim Matriz(Pos, 0 To 3) Range("A1").Select Do While ActiveCell <> Empty...