Mensajes

una solucion medio pedorra podria ser:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim c As Double, v1 As Double, v2 As Double
v1 = 2.2
v2 = 2
c = v1 * v2
MsgBox Str$(c)
End Sub

y declaras mal las variables,hacelo asi:

Código [Seleccionar] Expandir

Dim c As Double, v1 As Double, v2 As Double

porque sino te toma la primera y las otras como variant,en .NET si lo podes hacer asi...

InStr te devuelve un resultado(integer)si es 0 es porque no encontro la cadena a buscar y si es diferente de 0 te devuelve la posicion de la palabra a buscar...

saludos.

busca que de ese tema trata casi toda esta web..

a listo,ahora caigo  ,pues algo asi:

Código [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Select Case InStr(1, Text1, "a")
Case Is = 0
MsgBox "No encontré la letra a"
Case Is <> 0
MsgBox "encontré la letra a"
End Select
End Sub


saludos.

Hola,podes hacer lo que quieras,por ejemplo se me ocurre ir sumando el caption del form cada vez que apretas el boton:

Código [Seleccionar] Expandir

Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
Me.Caption = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
If UnloadMode = 0 Then Me.Caption = Me.Caption + 1
End Sub

pero no entiendo,vos queres deshabilitarlo o hacer cosas al apretarlo...porque planteaste 2 cosas y no se cual queres...

saludos.

Hola, sin if,usa Case 

perdon el repost ,pero ¿nadie jugo online este juego ?

ay ay ay,me parece que estos 2 ultimos me los bajo,pero no por el programa,sino por la iamgen 

se nota que no programas,sino lo crearias vos mismo..