Mensajes

[WM_LBUTTONUP + WM_LBUTTONDOWN + SendMessage()]

WM_LBUTTONUP + WM_LBUTTONDOWN + SendMessage()!¡

y para dar clic a un botón/objeto dentro del WebBrowser entonces haciendo referencia dentro del mismo al objeto, para esto ultimo usa el buscador (Foro o Google) o un manual básico de este control!¡.

Sangriento Infierno Lunar!¡.

[doom]

Si pones solo doom asi por asi das por hecho que esa variable la tienes declara en un modulo .bas!¡.

Sangriento infierno Lunar!¡.

public/global

Sangriento Infierno Lunar!¡.

No te apures solo ábrelo y el IDe de .NET te dirá qué si lo deseas actualizar!¡.

Otra cosa a nosotros NO nos sirve la fachada del form!¡. lo qué nos serviría seria la pantalla código en si/código plasmado/copy and paste/etc!¡.

Sangriento Infierno Lunar!¡.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Type TDatos
 IDdocumento As Long
 Nombre As String
 Apellidos As String
End Type
private/public/global DatosCliente As TDatos ' //  Public y Global en un modulo .Bas los demas en general

Private Sub Form_Load()
   With DatosCliente
       .IDdocumento = 12
       .Apellidos = "Ortega A."
       .Nombre = "Miguel Angel"
   End With
   
   With DatosCliente
       Call Interaction.MsgBox(.IDdocumento)
       Call Interaction.MsgBox(.Apellidos)
       Call Interaction.MsgBox(.Nombre)
   End With
End Sub



otra forma!¡.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Type TDatos
 IDdocumento   As Long
 Nombre        As String
 Apellidos     As String
End Type
Private Priv_DatosCliente As TDatos ' //  Public y Global es un modulo .Bas los demas en general
'   //  Friend permite tener acceso a Typos de una clase o datos que no esten estandarisados!¡.
Friend Property Let Datoscliente(ByRef Datos As TDatos)
   Priv_DatosCliente = Datos
   Debug.Print "Guardando Datos"
End Property
Friend Property Get Datoscliente() As TDatos
   Datoscliente = Priv_DatosCliente
   Debug.Print "Leyendo Datos"
End Property

Private Sub Form_Load()
Dim LocalData As TDatos
   With LocalData
       .IDdocumento = 12
       .Apellidos = "Ortega A."
       .Nombre = "Miguel Angel"
   End With
   Datoscliente = LocalData
   With Datoscliente
       Call Interaction.MsgBox(.IDdocumento)
       Call Interaction.MsgBox(.Apellidos)
       Call Interaction.MsgBox(.Nombre)
   End With
End Sub



Sangriento Infierno lunar!¡.

[path]

En ningún momento ingresas la unidad en la variable path ademas porque pones path & texxto & ":\"

Debería ser así!¡.

Código (vb) [Seleccionar] Expandir



Dim Int_ff              As Integer
Dim Str_Disk            As String * 1
    Int_ff = FileSystem.FreeFile
    Str_Disk = "c"
    Open Str_Disk & ":\" & "hola.txt" For Append As Int_ff
      ...



Sangriento Infierno lunar!¡:

Las aplicaciones qué realices en Windows 7 te correrán en un SO anterior de la misma rama, SIEMPRE Y CUANDO los componentes utilizados en el diseño de tu aplicación sean soportados por el mismo!¡, un ejemplo el efecto AERO qué se puede aplicar a un form no es soportado en windows anteriores, ya qué es una característica única del W7 (Quien sabe Vista pero como W7 es solo una actualización de Vista supongo qué si lo soporta).

P.D.: Instale el Vb6.0 en W7 de 32 bits y me corrió bien, en 64 bits me parece qué tienes qué hacerle algo al instalador¡.

Sangriento Infierno Lunar!¡.

Lo mejor seria que tomara la hora y fecha de un servidor publico ya qué hay muchas PC con horas erróneas y la verdad qué no es rentable (de alguna manera) si se toma la hora locamente por ejemplo!¡.

Por otro lado: El algoritmo estaría bueno para tener seriales activos solo un día en especifico!¡. ID's específicos de un Día determinado para un log o similares (Sol si no tiene secuencia repetitiva de amplia longitud, como mínimo 5 años)!¡.


Sangriento Infierno Lunar!¡.

Código (Vb) [Seleccionar] Expandir



Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
   If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
   Randomize: NumeroAleatorio = (MinNum - MaxNum + 1) * Rnd + MaxNum
End Function

Sub main()
Dim ArrayTmp() As Variant
Dim i&, i2&
   i& = 100
   ReDim ArrayTmp(i&)
   For i2& = 0 To i&
       ArrayTmp(i2&) = CStr(NumeroAleatorio(5, 99))
   Next
   Call Start_QuickSort(ArrayTmp(), AcendetOrder) '   //  http://foro.elhacker.net/programacion_vb/source_ordenar_array_low_y_fast-t272312.0.html
   Call MsgBox(Strings.Join(GetSimplificNumbers(ArrayTmp), ","))
End Sub



Sangriento Infierno Lunar!¡.

[1,2,3,4,5,9,10,15,16,17,18,555,342,423,422]

Solo es un simple algoritmo para simplificación de números en un array!¡.

la idea es ingresar números y qué los Simplifique, es decir 1,2,3,4,5,9,10,15,16,17,18,555,342,423,422 los ordena de la siguiente manera:

1~5,9,10,15~18,555,342,423,422

si se integra un ordenamiento QuickSort ordenaría adecuadamente!¡.

OJO: NO Es RECOMENDABLE USARLO CON NÚMEROS DECIMALES!¡.

Código (Vb) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Código siempre y cuando   //
'   // no se eliminen los créditos originales de este código   //
'   // No importando qué sea modificado/editado o engrandecido //
'   // o achicado, si es en base a este código                 //
'   /////////////////////////////////////////////////////////////
Option Explicit

Public Function GetSimplificNumbers(ByRef ArrayOfNumbers() As Variant) As String()
If (Not ArrayOfNumbers) = -1 Then Exit Function '   //  Array entrante, iniciado?.
Dim Lng_ArrayTmp$()                             '   //  Colección de Números Simplificados!¡.
Dim Lng_Ini&, Lng_End&, Lng_Index&              '   //  Variables para el Bucle.
Dim Lng_AntPosNumber&                           '   //  Indice del Numero anterior (Numero del Array entrante).
Dim Lng_ResNumber&                              '   //  residuo de Lng_Index& - Lng_AntPosNumber&.
Dim Lng_ArrayCount&                             '   //  Contador de las dimensiones de Lng_ArrayTmp$.
Dim Bool_Swith                  As Boolean      '   //  swith para saber si se debe simplificar!¡.

   '   //  Call Start_QuickSort(ArrayOfNumbers(), AcendetOrder)    '   //  http://foro.elhacker.net/programacion_vb/source_ordenar_array_low_y_fast-t272312.0.html
   
   Lng_Ini = LBound(ArrayOfNumbers):   Lng_End = UBound(ArrayOfNumbers)
   ReDim Lng_ArrayTmp$(Lng_ArrayCount&)
   Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index&)
   
   For Lng_Index& = Lng_Ini + 1 To Lng_End
       Lng_ResNumber& = ArrayOfNumbers(Lng_Index&) - ArrayOfNumbers(Lng_Index& - 1)
       If Lng_ResNumber& > 1 Then
           If Bool_Swith Then
               If Lng_AntPosNumber& > 2 Then
                   Lng_ArrayTmp$(Lng_ArrayCount&) = Lng_ArrayTmp$(Lng_ArrayCount&) & "~" & ArrayOfNumbers(Lng_Index& - 1)
               Else
                   Lng_ArrayCount& = Lng_ArrayCount& + 1
                   ReDim Preserve Lng_ArrayTmp$(Lng_ArrayCount&)
                   Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index& - 1)
               End If
           End If
           Lng_ArrayCount& = Lng_ArrayCount& + 1
           ReDim Preserve Lng_ArrayTmp$(Lng_ArrayCount&)
           Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index&)
           Bool_Swith = False
       ElseIf Lng_ResNumber& = 1 Then
           If Not Bool_Swith Then Lng_AntPosNumber& = 0
           Bool_Swith = True
           If Lng_Index& = Lng_End Then
               If conversion.cbool(InStr(1, Lng_ArrayTmp$(Lng_ArrayCount& - 1), "~")) Then
                   Lng_ArrayCount& = Lng_ArrayCount& + 1
                   ReDim Preserve Lng_ArrayTmp$(Lng_ArrayCount&)
                   Lng_ArrayTmp$(Lng_ArrayCount&) = ArrayOfNumbers(Lng_Index&)
               Else
                   Lng_ArrayTmp$(Lng_ArrayCount&) = Lng_ArrayTmp$(Lng_ArrayCount&) & "~" & ArrayOfNumbers(Lng_Index&)
               End If
           Else
               Lng_AntPosNumber& = Lng_AntPosNumber& + 1
           End If
       ElseIf Lng_ResNumber& = 0 Then
           If Lng_AntPosNumber& > 0 Then
               Lng_AntPosNumber& = Lng_AntPosNumber& + 1
           Else
               Lng_AntPosNumber& = 0
           End If
       End If
   Next
   GetSimplificNumbers = Lng_ArrayTmp$
End Function



Ejemplo:

Código (Vb) [Seleccionar] Expandir



Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
   If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
   Randomize: NumeroAleatorio = (MinNum - MaxNum + 1) * Rnd + MaxNum
End Function

Sub main()
Dim ArrayTmp() As Variant
Dim i&, i2&
   i& = 100
   ReDim ArrayTmp(i&)
   For i2& = 0 To i&
       ArrayTmp(i2&) = CStr(NumeroAleatorio(5, 99))
   Next
   Call Start_QuickSort(ArrayTmp(), AcendetOrder) '   //  http://foro.elhacker.net/programacion_vb/source_ordenar_array_low_y_fast-t272312.0.html
   Call MsgBox(Strings.Join(GetSimplificNumbers(ArrayTmp), ","))
End Sub



Alternativas:
http://foro.elhacker.net/programacion_visual_basic/src_abbreviatenumericarray_by_psyke1-t298689.0.html

P.D.: No escribí los números yo en Array fueron generados aleatoria-mente!¡.

Sangriento Infierno Lunar!¡.