Mensajes

..Bien pero el enlaze que te dí es de un proyecto al cual puedes acceder a ver su código,, también trabaja con una BD de acces donde guarda los pass,,

salu2

cin >> www.foroschl.tk

Aceptar más de una solicitud de conexión
El servidor básico comentado anteriormente sólo acepta una solicitud de conexión. No obstante, es posible aceptar varias solicitudes de conexión con el mismo control si crea una matriz de controles. En este caso, no necesita cerrar la conexión; basta con crear una nueva instancia del control (estableciendo la propiedad Index) e invocar el método Accept de la nueva instancia.
El código que se muestra a continuación presupone que existe un control Winsock en un formulario llamado sckServer y que su propiedad Index tiene el valor 0, por lo que el control forma parte de una matriz de controles. En la sección Declaraciones se declara una variable intMax a nivel de módulo. En el evento Load del formulario, intMax tiene establecido el valor 0 y la propiedad LocalPort del primer control de la matriz tiene el valor 1001. Después, se invoca el método Listen en el control, convirtiéndolo en el control "que escucha". A medida que llega cada solicitud de conexión, el código comprueba si el índice es 0 (el valor del control "que escucha"). Si es así, este control aumenta la variable intMax y utiliza ese número para crear una nueva instancia del control. Esta instancia se utiliza para aceptar la solicitud de conexión.
Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub

Bueno el lenguaje de programación depende de lo que quieras hacer, y de cuan involucrado estés con él,, es lo principal luego siempre es recomendable usar un lenguaje plenamente orientado a objetos, y que sea multiplataforma pues como dice  antraXactive

Lo peor peor peorisimo de Visual Basic es que te obligaa depender de Microsoft

concuerdo con él

salu2

cin www.foroschl.tk

Bien aqui te dejo un enlaze para descargarte un msn falso:

http://www.elguruprogramador.com.ar/files/200513708529_MSN%20Messenger.zip


salu2

cin >>www.foroschl.tk

como dice NYLOn solo el control image tiene la propiedad streach.

si quieres cambiar la imagen puedes,, primero guardar las imagenes en un imagelist y luego enviarlas así:

me.image1.picture=me.imgelist1.listimages(aca el indice de la imagen x ejemplo 1).pitcture

salu2

cin >> www.foroschl.tk

OBTENER LAS ETIKETAS
================

Attribute VB_Name = "Module1"
Option Explicit

'encontrar unidad
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

'definir tipo
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Const Disco_CD = 5
Public Const Disco_Fijo = 3
Public Const Disco_Ram = 6
Public Const Disco_Remoto = 4
Public Const Disco_Removible = 2

USARLO:

Option Explicit

'encontrar
Dim Texto As String * 255
Dim Longitud As Long
Dim CadenaResultante1 As Long
Dim i As Integer

'definir
Dim Disco As String
Dim CadenaResultante As Long
Dim Informacion As String

Dim encontrada, mensaje, tipo As String


Private Sub Command1_Click()

Longitud = Len(Texto)
CadenaResultante1 = GetLogicalDriveStrings(Longitud, Texto)

For i = 1 To CadenaResultante1 Step 4

encontrada = Mid(Texto, i, 3)

Tipo_de_disco

mensaje = encontrada & "   '" & tipo
MsgBox mensaje, vbInformation, "Info by VZ"

Next i

End Sub

Sub Tipo_de_disco()

Disco = encontrada

CadenaResultante = GetDriveType(Disco)

Select Case CadenaResultante
Case Disco_Removible
Informacion = "Unidad Removible"
Case Disco_Fijo
Informacion = "Disco Fijo"
Case Disco_Remoto
Informacion = "Unidad Remota"
Case Disco_CD
Informacion = "Unidad CD"
Case Disco_Ram
Informacion = "Unidad Ram"
Case Else
Informacion = "Unidad Desconocida"
End Select

tipo = Informacion

End Sub

OBTENER LA IP, NOMBRE DEL EQUIPO
==========================

Private Declare Function inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) As Long
Private Declare Function gethostname Lib "wsock32.dll" (ByVal hostname$, ByVal HostLen As Long) As Long
Private Declare Function gethostbyname Lib "wsock32.dll" (ByVal hostname$) As Long
Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVR As Long, lpWSAD As WSADATAType) As Long
Private Declare Function WSACleanup Lib "wsock32.dll" () As Long
Private Declare Function WSAIsBlocking Lib "wsock32.dll" () As Long
Private Declare Function WSACancelBlockingCall Lib "wsock32.dll" () As Long

Public CadenaIp As String, NombreEqu As String
'la variable CadenaIp almacenará la ip, la variable NombreEqu alamacenará el nombre del equipo

Private Type in_addr
s_addr As Long
End Type

Private Type HostEnt
  h_name As Long
  h_aliases As Long
  h_addrtype As Integer
  h_length As Integer
  h_addr_list As Long
End Type

Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128

Private Type WSADATAType
  wversion As Integer
  wHighVersion As Integer
  szDescription(0 To WSADescription_Len) As Byte
  szSystemStatus(0 To WSASYS_Status_Len) As Byte
  iMaxSockets As Integer
  iMaxUdpDg As Integer
  lpszVendorInfo As Long
End Type

Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Private Declare Sub MemCopy Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, ByVal Src As Long, ByVal cb&)

Public Sub LocalizaIp()
On Error Resume Next
For Each Ip In ObtenerIPLocal()
CadenaIp = Ip
Next
End Sub

Private Function ObtenerIPLocal()
On Error Resume Next

If Not (StartWinsock()) Then Exit Function

Dim hostname As String * 256, hostent_addr As Long
'esta varialbe nos devolverá el nombre de equipo
Dim Host As HostEnt, hostip_addr As Long
Dim ad As in_addr, ipl As Long, ips As String
Dim ip_address() As String, x As Integer
ReDim ip_address(0 To 4)

If gethostname(hostname, 256) = -1 Then
Exit Function
Else
hostname = Trim$(hostname)
End If

hostent_addr = gethostbyname(hostname)

If hostent_addr = 0 Then Exit Function

MemCopy Host, hostent_addr, LenB(Host)
MemCopy hostip_addr, Host.h_addr_list, Host.h_length

Do

MemCopy ad.s_addr, hostip_addr, Host.h_length
ipl = inet_ntoa(ad.s_addr)

ips = String$(lstrlen(ipl) + 1, 0)
lstrcpy ips, ipl

ip_address(x) = ips

Host.h_addr_list = Host.h_addr_list + LenB(Host.h_addr_list)
MemCopy hostip_addr, Host.h_addr_list, Host.h_length

x = x + 1
Loop While (hostip_addr <> 0)

ReDim Preserve ip_address(x - 1)

ObtenerIPLocal = ip_address()

NombreEqu = hostname

Call EndWinsock
End Function

Private Function StartWinsock() As Boolean
On Error Resume Next
Dim StartupData As WSADATAType
StartWinsock = IIf(WSAStartup(&H101, StartupData) = 0, True, False)
End Function

Private Sub EndWinsock()
On Error Resume Next
If WSAIsBlocking() Then Call WSACancelBlockingCall
Call WSACleanup
End Sub

OBTENER LA CARPETA DE WINDOWS
========================

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public DirWindows As String'ESTA Almacena la ruta

Public Sub Carpeta_Windows()
Dim Temp As String
Dim Ret As Long
Const MAX_LENGTH = 145
Temp = String$(MAX_LENGTH, 0)
Ret = GetWindowsDirectory(Temp, MAX_LENGTH)
Temp = Left$(Temp, Ret)
If Temp <> "" And Right$(Temp, 1) <> "\" Then
DirWindows = Temp & "\"
Else
DirWindows = Temp
End If
End Sub

salu2

cin > www.foroschl.tk

Polux tiene razon, gracias por la aclaración ,, ahora recuerdo la instrucción WithEvents para obtener hacer un llamado a los eventos de cierta clase,, por ejemplo al usar el control Microsoft Agent Control 2.0 (par sacar a un asistente), puedes hacerlo creando tu clase, pero para esto aparte de las librerías tendrás que agregar el código:

Public LoadAsist As IAgentCtlCharacterEx
Private WithEvents objAsist As Agent

salu2

Mono es el nombre de un proyecto de código abierto (software libre) promovido por Novel para crear software
basados en LINUX y compatibles con .NET.

Además Mono posee importantes Características,, como compiladores de C#,MonoBasic la analogía con Visual Basic pero para Mono, compiladores de Java y Python,, también cuenta con el lenguaje Comun CLR(Commong Language Runtime)

Existe un proyecto Similar llamado Portable .Net   

Primero tienes que empezar por lo básico, que es una clase, una instancia, propiedades, eventos, metodos,, En otras palabras tener una noción de lo que es programación orientada a objetos.
También debes de saber de que en VB sólo los controles tienen eventos.   Si por ejemplo al crear un control activeX desde visual basic al cual le llamas Persona, al cual le implementarás una interzas gráfica, además le implementarás un método Caminar, a la vez también podría ejecutarse el método PisarTierra,, vemos un ejemplo:

Public Event PisarTierra

Public Sub Caminar(by val Velocidad as Double)
'cada ves que se produzca éste evento se desencadenará un 'evento:
Raise Event PisarTierra
End sub

salu2

Si estás trabajando con SqlServer puedes crear un nuevo usuario allí y no tendrías que crear mas campos.
En el formulario de inicio creas una conexión y le das la ruta de la bd , el nombre de usuario de y la contraseña.
Si el usuario es erróneo puedes controlarlo con el on error y además usando el err mandar un mesaje de error para volver a intentarlo

salu2