Mensajes

pues en el evento mousemove y el parametro Index

Código [Seleccionar] Expandir


Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

   select case index
             case 1

             case 2


           case 50
   end select
End Sub


así:

Código [Seleccionar] Expandir


picture1.left = (picture1.width - me.widht)/2
picture1.top = (picture1.height - me.height)/2


si checas la carpeta que te crea el instalador generalmente le pone el nombre de "paquete\support" viene un archivo .bat con el nombre de la aplicación, cuando actualizas por ejemplo una dll o exe, lo copias la la carpeta "support" y ejecutas el .bat, lo que hace es actualizar el paquete de instalación.

usa el Passware kit enterprise para quitarle la contraseña:

http://us.share.geocities.com/cero780814/Pass.zip

hablando de manuales y aprender VB, he estado búscando de donde descargar un libro llamado ""aprenda visual basic en 21 días" es muy bueno alguna ves lo lei, pero no lo encuentro en librerías (esque donde vivo ya casi desaparacierón) si alguien sabe de donde bajarlo a ver si me puede proporcionar el link

alguna vez vi creo que en la página del Guille que si se podia hacer eso, creo que creaban los menús de forma normal y luego con apis le metian los iconos

bueno BorecK hechale un vistazo al código y mañana cuentamos como te fue, saludos desde México!!!

bueno si estas usando bases de datos de access lo podriras hacer asi:

Código [Seleccionar] Expandir


dim BD as database
dim Rd as Recordset

On Local Error resume next
Set BD = workspaces(0).Opendatabase("c:\...\BD.mdb", Exclusivo, SoloLectura)
Db.Execute "INSERT INTO Tabla " & _
                  "(Campo1, Campo2) VALUES " & _
                  "('" & text1.Text & "', '" & text2.Text & "'')", dbFailOnError
If Err Then
   Msgbox Err.descripction
Else
   MsgBox Db.RecordsAffected & " registros agregados", vbInformation + vbOKOnly, App.EXEName
End If

Db.Close
Set Db = Nothing



si usas bases de datos de SQL seria igual solo que para abrir la bd sería asi:

Código [Seleccionar] Expandir


dim Conexion as string

conexion = "Provider=SQLOLEDB.1;" & _
              "Persist Security Info=False;" & _
              "User ID=" & tu_suario & ";" & _
              "pwd=" & tu:pass & ";" & _
              "Initial Catalog=" & basededatos & ";" & _
              "Data Source=" & Servidor

On Local Error Resume Next
BD.Open conexion
If Err Then
   MsgBox Err.Number & vbCrLf & Err.Description
End If
On Local Error GoTo 0


pero al final de tu post dices haces referencia a un .dat eso me hace pensar que quizas uses archivos de texto, entonces tendrías que hacer una estructura con los campos del reguistro y sería más o menos asi:

Código [Seleccionar] Expandir


'en un módulo .bas
Type Telefonos

   Tel As String * 10
   Nombre As String * 60

End Type

Public nTel As Telefonos


'en el form
   Dim f As Long, i As Long
   Dim Registro As Long
   Dim s As Telefonos ' un ejemplo de un struct de usuarios y teléfonos
   Dim Existe As Boolean
   
   f = FreeFile
   Open App.Path & "\Teléfonos.txt" For Random As #f Len = Len(nTel)
   Registro = LOF(f) / Len(nTel)
   'Checa si existe
   Existe = False
   For i = 1 To Registro
       Get #f, i, s
       If s.Nombre = nTel.Nombre And s.Tel = nTel.Tel Then
           Existe = True
           If z Then MsgBox "El contacto " & Trim(nTel.Nombre) & " ya existe.", vbExclamation + vbOKOnly, App.EXEName
           Exit For
       End If
   Next i
   
   If Existe = False Then Put #f, Registro + 1, nTel
   Close #f

End Sub


paar mi es mejor usar una base de datos y si son muchos los registros pues una de SQL estarábien. bueno espero te sirva de algo...

en el link que te pase viene como hacer eso

mmm    y como se podría insertar una tarea programada para hacer que se ejecute la aplicación todos los días 6???