Mensajes

[config.ini]

bueno, un ejemplo facil :
primero, crea un archivo.ini en el mismo directorio donde esta o va a estar tu exe, llamado config.ini:

Código (ini) [Seleccionar] Expandir


[configuracion]
SWidth=5000
SHeight=7800
SLeft=0
STop=1500
sCap=Hola Mundo

bueno ahora la parte de vb6.
1º agrega el modulo bas que esta en ese ejemplo del link que te pase.

en el Form1 pone un TextBox "text1"y agrega este codigo:

Código (vb) [Seleccionar] Expandir


Dim INIFile As String
Private Sub Form_Load()
'se le pasa la ruta del archivo ini para que lo lea
INIFile = App.Path & "\config.ini"

Me.Left = GetKeyVal(INIFile, "configuracion", "SLeft")
Me.Top = GetKeyVal(INIFile, "configuracion", "STop")
Me.Width = GetKeyVal(INIFile, "configuracion", "SWidth")
Me.Height = GetKeyVal(INIFile, "configuracion", "SHeight")
Me.Caption = GetKeyVal(INIFile, "configuracion", "SCap")
End Sub

Private Sub Form_Unload(Cancel As Integer)
'se guarda los valores
Call AddToINI(INIFile, "configuracion", "SLeft", Me.Left)
Call AddToINI(INIFile, "configuracion", "STop", Me.Top)
Call AddToINI(INIFile, "configuracion", "SWidth", Me.Width)
Call AddToINI(INIFile, "configuracion", "SHeight", Me.Height)
Call AddToINI(INIFile, "configuracion", "SCap", Text1.Text)
End Sub


[INI Expert]

un archivo de configuración.ini seria lo mejor
INI Expert

aparte de lo ironico que suene hacer un virus con fines educativos, si no se tiene el Net Framework tu virus no funcionaria?
yo buscaria otro lenguaje, con menos requerimientos...

[Módulo de clase para reproducir videos]

para lo del reproductor Módulo de clase para reproducir videos es el ultimo ejemplo, es una clase, asi no tenes que usar referencias.

[Tutorial del Control ListView]

Tutorial del Control ListView

[BM_CLICK]

proba con BM_CLICK

Código (vb) [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const EM_GETLINE As Long = &HC4
Private Const EM_LINELENGTH As Long = &HC1

Function GetLineText(TextBox As TextBox, Optional LineNumer As Long = 1) As String
Dim lc As Long, Ret As Long, Str As String
lc = SendMessage(TextBox.hwnd, EM_GETLINECOUNT, 0&, 0&)
   Ret = SendMessage(TextBox.hwnd, EM_LINELENGTH, (LineNumer - 1), 0&)
   Str = Space(Ret)
   
   SendMessage TextBox.hwnd, EM_GETLINE, (LineNumer - 1), Str
   GetLineText = Str
End Function

Private Sub Command1_Click()
MsgBox GetLineText(Text1, 3)
End Sub

en si son lieas normales dentro de un MovieClip y con su propia linea de tiempo y despues se le aplica al MovieClip contenedor de todas esas lineas filtros de Iluminación y desenfoque

como vi que puso:

Error: revise el código

pense que queria saber donde le daba error en el code....

algo asi decis vos?

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
      Dim i As Integer, Str As String

     On Error GoTo ERROR

1    For i = 0 To 257
2    Str = Chr(i)
3    Next
4    Exit Sub
ERROR:
    MsgBox Err.Description & ", en la linea " & Erl, , "Error " & Err.Number
End Sub