|
3391
|
Programación / Programación Visual Basic / Re: Ayuda novato
|
en: 10 Mayo 2008, 15:33 pm
|
entonces trata de leer algun manual de visual,hay millones en internet,porque son propiedades basicas de los controles y las tenes que saber,no soy malo,pero si venis con conocimientos previos sobre el tema es mejor ayudar,porque sino los post terminan con 50 mensajes...
saludos.
|
|
|
3392
|
Programación / Programación Visual Basic / Re: Duda con botón VB
|
en: 10 Mayo 2008, 15:22 pm
|
Hola,escribi en otro color de letra ,podes hacer algo asi: Private Sub Command1_Click() MsgBox "hola" End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End Sub saludos.
|
|
|
3393
|
Programación / Programación Visual Basic / Re: Ayuda novato
|
en: 10 Mayo 2008, 15:08 pm
|
Hola,si lo vi a tu post,no se porque te lo borraron,no tenia nada raro,pero bue no es cuestion mia.. :¬¬podes usar un control DirListBox para elegir la carpeta a instalar ,o podes hacerlo mediante api y abrir la ventana de "Seleccionar Carpeta" y que te retorne el path de la carpeta eelgida y despues la trabajas con una variable..
saludos.
|
|
|
3394
|
Programación / Programación Visual Basic / Re: el api mciExecute me esta rompiendo las bolas
|
en: 10 Mayo 2008, 11:02 am
|
para que usar un ocx si con la api mcisendstring se puede tranquilamente,algo asi: Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Sub Command1_Click() mp3Play "C:\musica.mp3" End Sub
Public Function mp3Play(FileName As String) Dim cmdToDo As String * 255 Dim dwReturn As Long Dim ret As String * 128 Dim tmp As String * 255 Dim lenShort As Long Dim ShortPathAndFie As String If Dir(FileName) = "" Then mmOpen = "Error with input file" Exit Function End If lenShort = GetShortPathName(FileName, tmp, 255) ShortPathAndFie = Left$(tmp, lenShort) glo_hWnd = hWnd cmdToDo = "open " & ShortPathAndFie & " type MPEGVideo Alias MP3Play" dwReturn = mciSendString(cmdToDo, 0&, 0&, 0&) If dwReturn <> 0 Then mciGetErrorString dwReturn, ret, 128 mmOpen = ret MsgBox ret, vbCritical Exit Function End If mmOpen = "Success" mciSendString "play MP3Play", 0, 0, 0 End Function
saludos.
|
|
|
3396
|
Programación / Programación Visual Basic / Re: Hacer click en un link con webbrowser
|
en: 10 Mayo 2008, 02:01 am
|
digamos que entiendo y no entiendo,entiendo como se hace para posicionar el mouse y hacer un click en una determinada coordenada o en un control especifico,pero no entiendo si suponete tenes el control webbrowser de un tamaño de 10x10 y vos queres hacer click en la coordenada 400x400 cuando el webwroser estaria pantalla completa... ,sino podes listar todos los links de la pagina web y asi elegis el link que quieras para ir y te ahorras todo eso... saludos.
|
|
|
3398
|
Programación / Programación Visual Basic / Re: Jugaba a que hacia un troyano =] (SOURCE)
|
en: 8 Mayo 2008, 01:52 am
|
otra idea tambien es robar los contactos del msn... veo que a muchos le interesa el tema del messenger y listar las ventanas activas... ahi en otro post deje para listar los contactos del tipo conectado,es una tonteria lo hice asi nomas,pero funciona..se puede mejorar hacerle lo que quieran. saludos.
|
|
|
3400
|
Programación / Programación Visual Basic / Re: Ayuda con programas para visual basic 6
|
en: 7 Mayo 2008, 02:02 am
|
pero por eso te estoy preguntando...calcularlo con respecto a que?? a una fecha??,le falta explicacion a ese problema..o directamente que te tire los dias de la semana...no se se me ocurre esto para saber el dia de la semana de una fecha determinada: Private Sub Form_Load() Dim DiaBendito As String Dim i As Integer i = DatePart("w", Now) Select Case i Case 2: DiaBendito = "Lunes" Case 3: DiaBendito = "Martes" Case 4: DiaBendito = "Miercoles" Case 5: DiaBendito = "Jueves" Case 6: DiaBendito = "Viernes" Case 0: DiaBendito = "Sabado" Case 1: DiaBendito = "Domingo" End Select MsgBox DiaBendito End Sub o sino: Private Sub Form_Load() Dim DiaBendito As String DiaBendito = Format(Now, "Long Date") MsgBox DiaBendito End Sub no se ..leete un turorial de las funciones de fechas son muchisimas.
|
|
|
|
|
|
|