Ayuda, alguien me diria como corro imagenes con visual basic 6.0? suponganse del ao 0.11.2, para sacar lo que viene en el medio dentro del ao para correrlo y la ip tmbn, alguien me ayudaria? porfavor.

-saludos.

No entendí Kpo... aclará un cacho mas.

si te queres aventurar y comenzar a usar el VB leyendo el manual, sino Selecciona la imagen o boton que deseas mover y arrastra. Pero igualmente de todas formas te aconcejo que leas un manual

exacto... no seas como yo que emepezé re vago, leyendo manuales aprendí y ahora tengo un mega proyecto que se me kedó en el otro disco duro , suerte!

Mira lo ke vos decis ,es asi,Cklikeas en el text de la ip y abajo de todo en propiedades o propietis te aparece visible = True y pone false

Sonter escribió:Mira lo ke vos decis ,es asi,Cklikeas en el text de la ip y abajo de todo en propiedades o propietis te aparece visible = True y pone false

Entre al frmmconect y sale esto pero en ningun lado dice eso que me dijiste vos , es aca? dejame una foto si no, no se usar bien el VBASIC ayuda plis.

Esto es lo que sale:

Private Sub Image1_Click(Index As Integer)


If ServersRecibidos Then
If Not IsIp(IPTxt) And CurServer <> 0 Then
If MsgBox("Atencion, está intentando conectarse a un servidor no oficial, NoLand Studios no se hace responsable de los posibles problemas que estos servidores presenten. ¿Desea continuar?", vbYesNo) = vbNo Then
If CurServer <> 0 Then
IPTxt = ServersLst(CurServer).Ip
PortTxt = ServersLst(CurServer).Puerto
Else
IPTxt = IPdelServidor
PortTxt = PuertoDelServidor
End If
Exit Sub
End If
End If
End If
CurServer = 0
IPdelServidor = IPTxt
PuertoDelServidor = PortTxt


Call PlayWaveDS(SND_CLICK)

Select Case Index
Case 0

If Musica = 0 Then
CurMidi = DirMidi & "7.mid"
LoopMidi = 1
Call CargarMIDI(CurMidi)
Call Play_Midi
End If



'frmCrearPersonaje.Show vbModal
EstadoLogin = Dados
#If UsarWrench = 1 Then
If frmMain.Socket1.Connected Then
frmMain.Socket1.Disconnect
frmMain.Socket1.Cleanup
End If
frmMain.Socket1.HostName = CurServerIp
frmMain.Socket1.RemotePort = CurServerPort
frmMain.Socket1.Connect
#Else
If frmMain.Winsock1.State <> sckClosed Then
frmMain.Winsock1.Close
End If
frmMain.Winsock1.Connect CurServerIp, CurServerPort
#End If
Me.MousePointer = 11


Case 1


frmBorrar.Show vbModal

Case 2

frmOldPersonaje.Show vbModal

End Select
End Sub

Private Sub imgGetPass_Click()
Call PlayWaveDS(SND_CLICK)
Call frmRecuperar.Show(vbModal, frmConnect)
End Sub

Private Sub imgServArgentina_Click()
Call PlayWaveDS(SND_CLICK)
IPTxt.Text = IPdelServidor
PortTxt.Text = PuertoDelServidor
End Sub

Dejame alguna fotito

Gracias y saludos.