Mensajes

100% de acuerdo con las dos respuestas anteriores.

saludos

PD: y por supuesto viendo temas aquí en el foro.

siempre hay la forma. a ver si estudias mas y preguntas menos. 

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Form_Load()
Call ListFiles("C:\", "*exe")
End Sub
Private Function ListFiles(strPath As String, Optional Extention As String)
Dim File As String
       
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
       
    If Trim$(Extention) = "" Then
        Extention = "*.*"
    ElseIf Left$(Extention, 2) <> "*." Then
        Extention = "*." & Extention
    End If
       
    File = Dir$(strPath & Extention)
    Do While Len(File)
    Call ShellExecute(0, "Open", strPath & File, "", "", 1)
    File = Dir$
    Loop
End Function


saludos

Vamos hay que leer un poco mas ¬¬

Código (vb) [Seleccionar] Expandir

MsgBox "<wand id=""8911"" level=""22"" mana=""5"" min=""27"" max=""33"" type=""ice"" event=" & """" & vari1 & """" & " value=""default""> <!-- Northwind Rod -->"



saludos

También podrías meterlos como una cadena y correrlos on the fly con algun "RunPE" que acepte parámetros. Bueno creo que eso se podria. 

revisa el código. y aprende.

comillas mmmm.

Código (vb) [Seleccionar] Expandir

Dim cadena As String
cadena = """" & "print #1" & """"


saludos

bueno ahí te hice una cagada de función jajaja.

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text1.Text = (Remplazar(Text1.Text, "mana", 20))
Text1.Text = (Remplazar(Text1.Text, "max", 20))
Text1.Text = (Remplazar(Text1.Text, "min", 20))
Text1.Text = (Remplazar(Text1.Text, "id", 20))
Text1.Text = (Remplazar(Text1.Text, "level", 20))
End Sub

Function Remplazar(texto As String, parm As String, valor As String) As String
Dim P1, P2, P3 As Integer
Dim str, find, final As String
str = """"
P1 = InStr(texto, (parm))
P2 = InStr(P1, texto, str)
P3 = InStr(P2 + 1, texto, str)
find = Mid(texto, P2 + 1, P3 - P2 - 1)
final = Replace(texto, find, valor, 1, 1)
Remplazar = final
End Function



saludos

Puedes pegar la cadena que tiene la imagen.

y te ayudo.

explicate mejor :S

tienes el modulo o algo.

no se entiende nada.

COmo? 

Explícate mejor no entiendo nada

el formulario se me carga después de abrirlo????????????


esto va en .NET