Mensajes

Haber cuando empeze a poner imagenes en los programas y los ejecutaba en otros pcs me tiraban error no se que hacia mal...

Por eso pido ahora que me digais cual creeis que es mejor para no tener problemas de codecs o lo que sea, el "picture" o "picturebox"

Gracias.

Dejarlo la verdad da=, ya que siempre tergversais las cosas.  No importa no es mi web.

Usa el ordenador alreves, o la silla pegada al techo...
Ahora enserio, se que portatil dice, formatea y listo, en el acer el formateo es automatico y esta en menos de 10 minutos.

Si va genial, claro ahora entiendo lo de la cadena de caracter y las variables, gracias.

si si si, estoy leiendo.

Mira esto, cambie el tuyo poniendo String para que furan letras tambien, pero no me va:

Código (vb) [Seleccionar] Expandir

Dim a As String

Private Sub command1_click()
MsgBox a
End Sub


Private Sub command2_click()
MsgBox a
End Sub

Private Sub Form_Load()
a = Hola
End Sub


que desepcion crei q dimitrix era de los chingones,

ya vi que postear mucho no significa nada,

oiste eso -Freeze-

Sin comentario...

Gracias a todos, usare el de EON.

el punto no es crear un subforo. sino que  foro libre se yene de temas basura....
almenos es lo que entiendo

Exacto, yo estoy en contra del subforo, pero creo que se tendria que hacer algo.

Estoy estudiando variables, pero no entiendo una cosa:

Código (vb) [Seleccionar] Expandir

Public Temp As Integer
Sub Test()
   Dim Temp As Integer
   MsgBox Form1.Temp      ' Form1.Temp tiene el valor 1.
End Sub

Private Sub Form_Load()
   Temp = 1               ' Establece Form1.Temp a 1.
End Sub
Private Sub Command1_Click()
   Test   
End Sub
aka muestra un msgbox con el numero 1, lo entiendo por ahora, pero si le cambio el 1 por una letra o una palabra me da error, me gustaria que falla, no quiero un codigo diferente si no saber que falla para aprender de mis errores, gracias.

Código (vb) [Seleccionar] Expandir

Public Function FileExist(asPath As String) As Boolean
    '
    'Checks for an existing File,
    'returns True or False
    'examples:
    'If FindFile(Text1.Text) Then Label1 = "YES"
    'If Not FindFile(Text1.Text) Then Label1 = "NO"

    If UCase(Dir(asPath)) = UCase(TrimPath(asPath)) Then
      FileExist = True
    Else
      FileExist = False
    End If
End Function

Private Sub Command1_Click()
msgbox FileExist(c:\a.txt)
End Sub

y me da problemas en el msgbox

Perdona pero iniciado y aun no controlo muy bien las "Public Funcion..."

Haber si tengo un botol un label y un text y al darle al boton me mira la URL del text y me dice yes o no el label.
Me podrias ayudar.

PD: Que usastes para encontralo en google ¿?