Mensajes

[Enviar datos de excel a tabla externa]

Mirate el siguiente post:

Enviar datos de excel a tabla externa
http://foro.elhacker.net/index.php/topic,93076.msg435321.html#msg435321


Saludos.

Código [Seleccionar] Expandir


Private Sub Command2_Click()
Open "C:\New.txt" For Output As #1
Print #1, , "<script languaje="; Chr$(34) & javascript & Chr$(34); ">"
Close #1


El código ASCII de las comillas es el 34 decimal.

Saludos.

En los InputBox no se puede. Create un formulario que haga eso.

Saludos.

La función Point te devuelve el color de un punto. Esta función las tienen los controles PictureBox y los formularios.

Saludos.

[Funciones para manipular el registro utilizando la API]

Código [Seleccionar] Expandir


Function RegEnumKeyNames(TargetArray() As String, Optional Key As RegKeyConstants = RegLocalMachine, Optional ByVal SubKey As String, Optional MaxKeysToEnum As Long = -1) As Long
  On Error GoTo CloseKey
          Dim iCount%, iArrayType%
          Dim hKey&, ft As FILETIME
          Dim r&, sName$, lName&

  hKey = RegOpenKey(Key, SubKey, RegEnumerateSubKeys).lHandle

  If hKey <> ERROR_SUCCESS Then
    Erase TargetArray
   
    Do
      lName = 256: sName = String(lName, 0)
      r = OSRegEnumKeyEx(hKey, iCount, sName, lName, 0&, ByVal "", 0&, ft)
     
      If r <> ERROR_NO_MORE_ITEMS Then
        ReDim Preserve TargetArray(iCount) As String
        TargetArray(iCount) = Left(sName, lName)
      Else
        GoTo CloseKey
      End If
Step:
      iCount = iCount + 1
      If MaxKeysToEnum > -1 And iCount = MaxKeysToEnum Then GoTo CloseKey
    Loop
   
CloseKey:
    Call RegCloseKey(hKey)
   
    RegEnumKeyNames = iCount
  End If
End Function

Function RegEnumValueNames(TargetArray() As String, Optional Key As RegKeyConstants = RegLocalMachine, Optional ByVal SubKey As String) As Long
  On Error GoTo CloseKey
          Dim hKey&, r&
          Dim sName$, lName&
          Dim lCount&
          Dim btData As Byte, lData&
          Dim lType&

  hKey = RegOpenKey(Key, SubKey, regqueryvalue).lHandle

  If hKey <> ERROR_SUCCESS Then
    Erase TargetArray

    Do
      lName = 256: sName = String(lName, 0)
      lData = 2000
      r = OSRegEnumValue(hKey, lCount&, sName, lName, 0&, 0&, ByVal btData, lData)
     
      If r = ERROR_SUCCESS Then
          ReDim Preserve TargetArray(lCount) As String
          TargetArray(lCount) = Left(sName, lName)
      Else: GoTo CloseKey
      End If
     
      lCount = lCount + 1
    Loop
   
CloseKey:

    Call RegCloseKey(hKey)
    RegEnumValueNames = lCount - 1
  End If
End Function


Funciones para manipular el registro utilizando la API
http://foro.elhacker.net/index.php/topic,72149.0.html

Tema pegado...

Saludos.

[La visibilidad de las variables]

Como dijeron: VARIABLES CON ALCANCE GLOBAL EN MÓDULOS ESTÁNDAR.

Por favor, este tipo de post se podrían solucionar buscando un poquito en google...

http://www.google.com.ar/search?hl=es&q=variables+globales+visual+basic&meta=

Primer link, sección La visibilidad de las variables

Saludos.

No uses la propiedad Picture, sino la propiedad Image.

Saludos.

Usa el control MsComm, si miras en MSDN encontrás ejemplos y todo.

Saludos.

Esto es un foro no un chat, si quieren hablar entren al canal, no posteen si no van a aportar algo productivo o a preguntar algo.

Por cierto, muchas gracias por el aporte Xpeed.

Tema cerrado.

[wininit.ini]

Agregas una nueva linea al archivo wininit.ini como siguiente:

Código [Seleccionar] Expandir


NUL=C:\MyFile.txt


Cuando se reinicie la máquina el sistema borrará C:\MyFile.txt.
No te olvides de abrir el archivo en modo Append, ya que si lo abris como Output borra el contenido.

Saludos.