Estan muy buenas, felicidades
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarSimplemente hay que enviar el POSt para el GET localmente, desde un script local.
Private Sub Picture1_Click()
On Error Resume Next
Dim ValorASumar As Integer
Dim Datos As String
Dim Suma As Integer
'Llenamos la variable datos
Datos = "501||5||||11||20||0||0||0"
'Hacemos la matriz
MatrizDatos = Split(Datos, "||")
'Bucle que recorre todos los numeros y los suma
For n = 0 To UBound(MatrizDatos)
Valor = MatrizDatos(n)
Suma = Suma + Valor
Next n
'Presentamos el resultado
MsgBox "La suma es: " & Suma
End Sub
Texto = Replace(Text1.Text, Chr(13), "||")
Private Sub Command1_Click()
'Proceso empieza
Screen.MousePointer = vbHourglass
open cd.filename for binary as #1
file = len(cd.filename)
get #1, , file
close #1
'Proceso termina
Screen.MousePointer = vbDefault.
End Sub
Screen.MouseIcon = LoadPicture("C:\Test\Cursor.cur")
Screen.MousePointer = vbCustom
'En un módulo
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'En el evento MouseMove del form, botón etc
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub
'Empieza el proceso
Process1.Value = 0
Kill "C:\TEMP\*.tmp"
Process1.Value = 25
Dim Datos as String
Dim Hora as Variant
Process1.Value = 75
Msgbox "Datos " & Datos & " " & "Hora: " & Hora
'Proceso terminado
Process1.Value = 100
Msgbox "Terminado"