|
|
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
26
« en: Viernes 6 de Febrero de 2004, 00:37 »
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  http://www.mentalis.org/apilist/NetShareAdd.shtml
27
« en: Jueves 5 de Febrero de 2004, 19:17 »
28
« en: Jueves 5 de Febrero de 2004, 19:13 »
Como creo una cuenta de administrador por Vb Gracias de antemano
29
« en: Jueves 5 de Febrero de 2004, 19:10 »
No lo he echo nunca pero prueba con las funciones de API Windows 'NetShareAdd' y 'NetShareGetInfo', espero que tengas suerte... Gracias, me funciono
30
« en: Jueves 5 de Febrero de 2004, 06:12 »
encontre un codigo y lo edite harto para que sea mas "usable"  Option Explicit Private Declare Function CopyFile Lib "kernel32" _ Alias "CopyFileA" (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, ByVal bFailIfExists As Long) _ As Long Public Function APIFileCopy(src As String, dest As String, _ Optional FailIfDestExists As Boolean) As Boolean Dim lRet As Long lRet = CopyFile(src, dest, FailIfDestExists) APIFileCopy = (lRet > 0) End Function Private Sub Command1_Click() Dim origen As String Dim destino As String origen = Dir1.Path & "\" & File1.FileName destino = Dir2.Path & "\" & File1.FileName APIFileCopy origen, destino End Sub Private Sub Dir1_Change() File1.Path = Dir1 End Sub Private Sub Drive1_Change() Dir1.Path = Drive1 End Sub Private Sub Drive2_Change() Dir2.Path = Drive2 End Sub
Deber poner 2 Drivelistbox, 2 dirlistbox , 1 filelistbox y un boton, los nombres los dejas talomo estan 
31
« 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
« en: Jueves 5 de Febrero de 2004, 05:46 »
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
« en: Jueves 5 de Febrero de 2004, 05:30 »
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
34
« 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  , como lo hago? Gracias de antemano! 
35
« en: Miércoles 28 de Enero de 2004, 00:29 »
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
36
« en: Martes 27 de Enero de 2004, 18:51 »
Esop.  , que si se apreta un boton el form se pueda minimizar y si se apreta otro no se pueda minimizaar  ... soy un ignorante
37
« en: Lunes 26 de Enero de 2004, 19:08 »
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
38
« 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
« 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 ... necesito ayudaaa 
40
« en: Viernes 23 de Enero de 2004, 23:07 »
hice un programa nuevo con tal codigo: Private Sub Command1_Click() Winsock1.RemoteHost = "192.168.0.71" Winsock1.Connect End Sub Private Sub Command2_Click() Dim enviar As String enviar = Text2.Text Winsock1.SendData enviar End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim datos As String Winsock1.GetData datos Text1.Text = Text1.Text + datos End Sub
y me funciono 2 veceso, ose pude enviar datos 2 veces y a la tercera dio el error
41
« en: Viernes 23 de Enero de 2004, 22:33 »
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?:
Do While winsock1.state <> sckConnected or winsock1.state <> sckError doevents Loop
Ya no sale el error pero l problema es que ese rror lo da porque no lo pueed enviar y no envia anda
42
« 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  , 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
« 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?
44
« en: Miércoles 21 de Enero de 2004, 17:36 »
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:
If LCase(Left(txtstepp.Text, 4)) = "axda" Then lblproci.Caption = "Athlon XP Tbred" elseif LCase(Left(txtstepp.Text, 2)) = "ax" then lblproci.Caption = "Athlon XP Palomino" endif
Y que no te parezca mal, pero podrías esforzarte un poco para poder comprenderte mejor...
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 , le puse que el tercero si es un numero que salga palomino , grracas a Todos
45
« en: Miércoles 21 de Enero de 2004, 16:21 »
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?  pero en los 2 si pongo axda y depeus borro la a del final sale palomino , que hagooo,
46
« 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?
47
« en: Martes 20 de Enero de 2004, 16:03 »
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
48
« en: Lunes 19 de Enero de 2004, 22:07 »
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
49
« 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?
50
« en: Domingo 18 de Enero de 2004, 03:11 »
|
|
|
Mostrar Mensajes
