Mensajes

Voy a hacer una aplicación para la captura de pantalla usando el .ocx si la termino la cuelgo, ok.

Jajajaja

Si juntas el nombre que le has puesto al programa + El server de bifrost que tienes en el escritorio + el tema de windows vista falso = hax0r lam0 powa! (es coña)

El programa esta chulo

Apuntate un 10 

No se si esto te sirve pero hay va...

Código [Seleccionar] Expandir

If MSComm1.PortOpen = True Then
  MsgBox "ok"
Else
  MsgBox "koo"
End If


Mira asi:

Código [Seleccionar] Expandir

Dim a, b As Integer
Dim url() As String
url() = Split(Text1.Text, " ")

For a = 0 To UBound(url)
  For b = a + 1 To UBound(url)
    If url(a) = url(b) Then
      MsgBox "palabra repetida: " & url(a)
    End If
  Next b
Next a

Mil gracias, ahora se puede matar el tiempo libre fuera de casa 

Mira en estos dos posts...

http://foro.elhacker.net/index.php/topic,139885.0.html

http://foro.elhacker.net/index.php/topic,68352.0.html

  jajajajjaj 
Es dificil adivinar lo que se pretende hacer, pero se hace lo que se puede...

Código [Seleccionar] Expandir

Combo1.AddItem Text1.Text

Es para añadir al combo lo que tenga el text1, que es lo que creí que querias.

A codigo lo pudes hacer asi para llenar la lista:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Combo1.AddItem "Hola"
Combo1.AddItem "a"
Combo1.AddItem "todos"
End Sub

Y para sacar el contenido lo puedes hacer asi:

Código [Seleccionar] Expandir

Private Sub combo1_click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub


Un saludo.

Que agrege texto hacia bajo supongo que es que salga en la lista desplegable, no? 

Código [Seleccionar] Expandir

Combo1.AddItem Text1.Text

La verdad no te entendi muy bien, pero mira a ver si es esto 

Código [Seleccionar] Expandir

Private Sub Check1_Click()
Check1.Value = 0
Check2.Value = 1
Check3.Value = 2
End Sub


Control CheckBox: 0 es desactivado (predeterminado), 1 es activado y 2 es atenuado

Código [Seleccionar] Expandir

Label1.Caption = ""
For x = 1 To 10
   Label1.Caption = Label1.Caption & (Text1.Text & " x " & x & " = " & Val(Text1.Text) * x) & vbCr
Next