• Jueves 28 de Marzo de 2024, 21:20

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Bopo

Páginas: 1 [2] 3
26
Visual Basic 6.0 e inferiores / Re: Compartir Disco
« en: Viernes 6 de Febrero de 2004, 00:37 »
Cita de: "pacegar"
Sería de agradecer que si has encontrado la solución a tu problema la compartas con todos. Alguien la puede necesitar algun día...

Saludos
De acuerdo :D
http://www.mentalis.org/apilist/NetShareAdd.shtml

27
Visual Basic 6.0 e inferiores / Re: Desactivar El Menu Derecho Del Mouse
« en: Jueves 5 de Febrero de 2004, 19:17 »
Cita de: "Bopo"
Cita de: "irma3030"
Hola:
       Otra pregunta como desactivar el menu derecho del Mouse, ya que tiene las
opciones de pegar, cortar y esto me genera error en el momento en que se captura la informacion.

    Muchas Gracias por su atencion prestada.
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "error"
End If
End Sub


 :D
un codigo que encontre navegando por la vida B)  :rolleyes:
http://www.mentalis.org/tips/tip131.shtml

28
Visual Basic 6.0 e inferiores / Como Creo Una Cuenta De Administrador Por Vb
« en: Jueves 5 de Febrero de 2004, 19:13 »
Como creo una cuenta de administrador por Vb

Gracias de antemano :D

29
Visual Basic 6.0 e inferiores / Re: Compartir Disco
« en: Jueves 5 de Febrero de 2004, 19:10 »
Cita de: "javirues"
No lo he echo nunca pero prueba con las funciones de API Windows  'NetShareAdd' y 'NetShareGetInfo', espero que tengas suerte...
Gracias, me funciono :D

30
encontre un codigo y lo edite harto para que sea mas "usable" :hola:

Código: Text
  1. Option Explicit
  2.  
  3. Private Declare Function CopyFile Lib "kernel32" _
  4.   Alias "CopyFileA" (ByVal lpExistingFileName As String, _
  5.   ByVal lpNewFileName As String, ByVal bFailIfExists As Long) _
  6.   As Long
  7.  
  8. Public Function APIFileCopy(src As String, dest As String, _
  9.   Optional FailIfDestExists As Boolean) As Boolean
  10.  
  11.  
  12.  
  13. Dim lRet As Long
  14. lRet = CopyFile(src, dest, FailIfDestExists)
  15. APIFileCopy = (lRet > 0)
  16.  
  17. End Function
  18.  
  19. Private Sub Command1_Click()
  20. Dim origen As String
  21. Dim destino As String
  22. origen = Dir1.Path & "\" & File1.FileName
  23. destino = Dir2.Path & "\" & File1.FileName
  24. APIFileCopy origen, destino
  25.  
  26. End Sub
  27.  
  28. Private Sub Dir1_Change()
  29. File1.Path = Dir1
  30. End Sub
  31.  
  32. Private Sub Drive1_Change()
  33. Dir1.Path = Drive1
  34. End Sub
  35.  
  36.  
  37. Private Sub Drive2_Change()
  38. Dir2.Path = Drive2
  39. End Sub
  40.  

Deber poner 2 Drivelistbox, 2 dirlistbox , 1 filelistbox y un boton, los nombres los dejas talomo estan :blink:

31
Visual Basic 6.0 e inferiores / Re: Que El Textbox Solo Admita Numeros
« en: Jueves 5 de Febrero de 2004, 05:47 »
otro mas facil:

Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

32
Visual Basic 6.0 e inferiores / Re: Justificacion De Texto
« en: Jueves 5 de Febrero de 2004, 05:46 »
Cita de: "irma3030"
Hola:

   Agradezco a toda persona que me ayude a solucionar el siguiente problema que tengo:  En un Text Box Multiline no se como hacer la justificacion al momento de la impresion:  Ejemplo

                 "Esto es una prueba de lo que
                  busco ayuda para poder
                  solucionar el problema que tengo"

  Ahora bien esto se captura en un TextBox Multiline y en el reporte sale
  impreso de la siguiente manera desde (PRINT no Cristal Report).

                  Esto es una prueba de lo qu
                  e busco ayuda para po
                  der solucionar el problema que te
                  ngo"

Salen truncadas las palabras que debo hacer para justificarlas"
Private Sub Form_Load()
Text1.Alignment = 0
Text1.Text = "Esto es una prueba de lo que busco ayuda para poder solucionar el problema que tengo"
End Sub


Aunque yo no tengo problemas si lo prongo centrtado o ala derecha... mira


33
Visual Basic 6.0 e inferiores / Re: Desactivar El Menu Derecho Del Mouse
« en: Jueves 5 de Febrero de 2004, 05:30 »
Cita de: "irma3030"
Hola:
       Otra pregunta como desactivar el menu derecho del Mouse, ya que tiene las
opciones de pegar, cortar y esto me genera error en el momento en que se captura la informacion.

    Muchas Gracias por su atencion prestada.
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "error"
End If
End Sub


 :D

34
Visual Basic 6.0 e inferiores / Compartir Disco
« en: Jueves 5 de Febrero de 2004, 04:47 »
Hola, quiero ahcer un programa que cuando lo abras comparta el disco C y de todos los predilegios :lol: , como lo hago? :D

Gracias de antemano! :ph34r:

35
Visual Basic 6.0 e inferiores / Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
« en: Miércoles 28 de Enero de 2004, 00:29 »
Cita de: "ebolo"
Lo unico que se me ha ocurrido es lo siguiente:

--------------------------------------
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
If Form1.WindowState = 1 Then Form1.WindowState = 0
End Sub
---------------------------------------
Pones 2 botones command y un timer.
Por lo que he comprobado usar las propiedades del form "Maxbutton" y "Minbutton" no se puede dentro de código porque da error.
Saludos.
Excelente solucion :D

36
Esop. :huh: , que si se apreta un boton el form se pueda minimizar y si se apreta otro no se pueda minimizaar :P ... soy un ignorante :ph34r:

37
Visual Basic 6.0 e inferiores / Re: Como Hago Que Cuando El Programa Este...
« en: Lunes 26 de Enero de 2004, 19:08 »
Cita de: "ebolo"
Hola Bopo.
Pues supongo que si lo maximizas inmediatamente antes del msgbox con:
Form1.windowstate=2  ó
Form1.windowstate=0
te saldrá

Saludos.
Gracias ;) , no se me habia ocurrido :blink:

38
Visual Basic 6.0 e inferiores / Como Hago Que Cuando El Programa Este...
« en: Lunes 26 de Enero de 2004, 17:44 »
Como hago que cuando el programa este minimizado y aparesca un msgbox te lo muestre, ya que no lo muestra cuandoe esta minimizado :(

39
Visual Basic 6.0 e inferiores / Programa Que Lea Un Textbox Y ...
« en: Sábado 24 de Enero de 2004, 07:14 »
Programa que lea un textbox y que me diga cuantas palabras hay dede 4 o más letras

Estoy recalentandome la cabeza pensando en como hacerlo :hola: ... necesito ayudaaa :unsure:

40
Visual Basic 6.0 e inferiores / Re: Problemas Con Winsock
« en: Viernes 23 de Enero de 2004, 23:07 »
hice un programa nuevo con tal codigo:

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3. Winsock1.RemoteHost = "192.168.0.71"
  4. Winsock1.Connect
  5. End Sub
  6. Private Sub Command2_Click()
  7. Dim enviar As String
  8. enviar = Text2.Text
  9. Winsock1.SendData enviar
  10. End Sub
  11.  
  12. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  13. Dim datos As String
  14. Winsock1.GetData datos
  15. Text1.Text = Text1.Text + datos
  16. End Sub
  17.  
  18.  

y me funciono 2 veceso, ose pude enviar datos 2 veces y a la tercera dio el error :huh:

41
Visual Basic 6.0 e inferiores / Re: Problemas Con Winsock
« en: Viernes 23 de Enero de 2004, 22:33 »
Cita de: "QliX=D!"
despues del connect el winsock realiza una serie de operaciones por las cuales "tarda" un poco en conectarse realmente por lo tanto tenes que darle un tiempo.. cuanto?:
Código: Text
  1.  
  2. Do While winsock1.state <> sckConnected or winsock1.state <> sckError
  3.   doevents
  4. Loop
  5.  
  6.  
Ya no sale el error pero l problema es que ese rror lo da porque no lo pueed enviar y no envia anda :(

42
Visual Basic 6.0 e inferiores / Problemas Con Winsock
« en: Viernes 23 de Enero de 2004, 03:10 »
Hola, estoy haciendo una aplicacion winsock y todo lot enia funcionando ok, tengo el programa servidor perfecto porque antes funcionaba con otra aplicacion y es un exe que no lo he cambiado :rolleyes: , por lo que estoy seguro que el problema es el cliente, estaba funcionando y edspues le csmbie unas cositas ero al volverlas como estaban no funciona, bueno as configuracioen son estas:

Winsock 1

Localport: 888
RemotePort : 888

en los codigos tengo:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   
   Dim datos As String

   Text1.Text = Text1.Text + datos
   Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    Winsock1.GetData datos

End Sub

Private Sub Command4_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
Dim enviar As String
    enviar = Winsock1.LocalIP & "   " & Label1.Caption & Label2.Caption & Label3.Caption
    Winsock1.SendData enviar
End Sub

Cuando apreto el command 4 sale un error que dicee Run.time '40006':
Wrong protocol or connection state for the requested transaction or request y si pongo debug sale  Winsock1.SendData enviar en amarillo....

 :(  :(  ayudenmeee

43
Visual Basic 6.0 e inferiores / Puertos Para Winsock
« en: Jueves 22 de Enero de 2004, 18:48 »
¿Cuales puertos sirven?
Tengo el 888 pero encesito poner otro winsock mas y que puerto le puedo poner? :P

44
Visual Basic 6.0 e inferiores / Re: Problema Raro
« en: Miércoles 21 de Enero de 2004, 17:36 »
Cita de: "Brroz"
El ejemplo que te da pacegar es válido con una salvedad: que se te ocurra escribir en el textbox con mayúsculas... con esto debería de servir:

Código: Text
  1.  
  2. If LCase(Left(txtstepp.Text, 4)) = "axda" Then
  3.       lblproci.Caption = "Athlon XP Tbred"
  4. elseif LCase(Left(txtstepp.Text, 2)) = "ax" then
  5.       lblproci.Caption = "Athlon XP Palomino"
  6. endif
  7.  
  8.  

Y que no te parezca mal, pero podrías esforzarte un poco para poder comprenderte mejor...
Citar
pero en los 2 si pongo axda y depeus borro la a del final sale palomino  , que hagooo
... porque quién sabe a qué te refieres cuando dices que ¿en los 2? (¿TextBox?,¿no era uno?) pones 'axda' y después borras la 'a del final'.

Suerte.
Perdon por ser tan dificil de entender :( , pero ya lo arregle :lol: , le puse que el tercero si es un numero que salga palomino :huh: , grracas a Todos :D

45
Visual Basic 6.0 e inferiores / Re: Problema Raro
« en: Miércoles 21 de Enero de 2004, 16:21 »
Cita de: "Bopo"
En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago? :(  :smartass:
pero en los 2 si pongo axda y depeus borro la a del final sale palomino :( , que hagooo,

46
Visual Basic 6.0 e inferiores / Problema Raro
« en: Miércoles 21 de Enero de 2004, 03:13 »
En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago? :(  :smartass:

47
Visual Basic 6.0 e inferiores / Re: Deshabilitar Una Tecla
« en: Martes 20 de Enero de 2004, 16:03 »
Cita de: "QliX=D!"
No, desde VB no se puede (no directamente y puramente) y menos desde la BIOS.
Para deshabilitar la tecla tenes que ver los drivers del teclado, esos teclados vienen con soft y drivers que te dejan habilitar/Deshabilitar esas teclas (junto con otras) para que no funcionen.

Si deshabilitas de la bios, deshabilitas la funcion no la tecla.
me explico?.
slds.
En algunas BIOS si se puede, por ejemplo la mia :P

48
Cita de: "nestor g"
Como hago un enter en un texbox y que no me salga un
>símbolo |

Tanto si pongo la constante VbCrLf como el ascii 13 y 10 me pasa lo mismo :

>Si hago t.txt = "AA" + CHR (13) + CHR (10) + "BB"
>Sale AA||BB   en vez de
>AA
>BB
>
>Alguien sabe porqué ?
>Gracias
pon multiline en la propiedad del textbox :huh:

49
Visual Basic 6.0 e inferiores / Aplicaciones Servidor - Cliente
« en: Lunes 19 de Enero de 2004, 00:21 »
Como podria hacer que por ejemplo unos label van cambiando permanentemente en un pc cliente y que el pc servidor pueda ver y que pueda monitorear el pc del cliente? :huh:

50
Cita de: "Linkup"
a mi me pasaba lo mismo  :P solo pones multi line y list tb me aparecian as barritas culias mariconas  :devil:
Ma weon tu :D

Páginas: 1 [2] 3