• Miércoles 6 de Noviembre de 2024, 02:27

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Valek

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Frames
« en: Miércoles 7 de Agosto de 2002, 04:40 »
Como cargar un frame perteneciente a un formulario extranjero en el formulario actual?

por ejemplo el form2.frame1 "Como puedo hacer que aparezca en un formulario llamado form1"

2
Visual Basic 6.0 e inferiores / ficheros 911
« en: Sábado 11 de Mayo de 2002, 20:48 »
Saludos:

Lo que pasa es que nunca había trabajado con ficheros sino con base de datos, y ahora se me ha presentado un gran problema con la edicion de ficheros, pero nada esto es para el que puede.

He investigado y ahora lo que necesito saber es lo siguiente:


Consideren estas lineas:
1,"nombre","apellido"
2,"nombre2","apellido2"
3,"nombre3","apellido3"
_

Entonces como puedo extraer la linea:
2,"nombre2","apellido2"
del fichero sin dejar el espacio en blanco, teniendo en cuenta que el fichero obtiene sus datos desde TextBoxes.

3
Visual Basic 6.0 e inferiores / Cerrar Ventanas
« en: Sábado 11 de Mayo de 2002, 20:44 »
Ok, ya me funciono.

4
Visual Basic 6.0 e inferiores / Re: Copy Paste(con otro nombre)
« en: Martes 7 de Mayo de 2002, 04:50 »
Oye la verdad es que suena interesante pero no se como ponerlo en práctica.

'//Yo estaba utilizando la instruccion:

File Copy "C:RutaArchivoACopiar.Ext", "C:RutaArchivoAPegar.Ext"

Pero me interesa más la forma que planteas, si puedes detallarme un poquito más.

Gracias.

5
Visual Basic 6.0 e inferiores / Re: Copy Paste(con otro nombre)
« en: Lunes 6 de Mayo de 2002, 03:22 »
Saludos:

Necesito saber como puedo copiar un archivo existente y pegarlo en la misma ruta pero con otro nombre.
Lo que pasa es que estoy creando una aplicación en la que debe crearse una base de datos nueva, cada vez que cree una nueva empresa. Así tengo los datos de una empresa en una base de datos exclusiva.

Tengo una base de datos con ruta y nombre "C:/fact/Model.mdb"

Entonces como puedo crear a "C:/fact/001.mdb"

Gracias!!!

6
Visual Basic 6.0 e inferiores / Re: Agregar al inicio
« en: Jueves 14 de Marzo de 2002, 04:24 »
Creo que con este código podras ejecutar tu programa automaticamente cada vez que se reinicia el ordenador

Modulo:

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As _
String, ByVal ulOptions As Long, ByVal samDesired As Long, _
phkResult As Long) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal Reserved As Long, ByVal dwType As Long, _
lpData As Any, ByVal cbData As Long) As Long

Public Const HKEY_CURRENT_USER = &H80000001
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1

 
Formulario:

'Debes compilar el programa a EXE
'para que este codigo te funcione.

Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String

subkey = "SoftwareMicrosoftWindowsCurrentVersionRun"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, _
KEY_WRITE, hregkey)
If retval <> 0 Then
Debug.Print "Can't open the subkey"
Exit Sub
End if
stringbuffer = App.Path & "" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, _
ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkey


No sé si es lo que quieres pero espero te sirva de algo!!!           http://

7
Visual Basic 6.0 e inferiores / Re: Menu con iconos
« en: Viernes 8 de Marzo de 2002, 09:10 »
Saludos, chicos.

Se me ha presentado un problema con la elaboración de un menu al cual le he agregado iconos; el menu es, mas o menos, de la siguiente forma:

[Main]
////[:)Opcion1]
////[:(Opcion2]
////[Opcion3>>]==>[Opcion4]



He hecho estas declaraciones:

Option Explicit

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As String) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Private Declare Function GetMenuCheckMarkDimensions Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long



El codigo es el siguiente:

Private Sub MDIForm_Load()
Dim hMenu, hSubMenu, menuID, x
  hMenu = GetMenu(hwnd)
  hSubMenu = GetSubMenu(hMenu, 0) '1 for "Other" menu etcetera
 
   
      menuID = GetMenuItemID(hSubMenu, 0)
      x = SetMenuItemBitmaps(hMenu, menuID, &H4, Img.ListImages(1).Picture, Img.ListImages(1).Picture)
 
      menuID = GetMenuItemID(hSubMenu, 1)
      x = SetMenuItemBitmaps(hMenu, menuID, &H4, Img.ListImages(2).Picture, Img.ListImages(2).Picture)

NOTA: tengo un ImageList con tres imagenes, la numero 3 aún no la he podido utilizar.
 
...Con esto he conseguido asignar Bitmaps a  la opcion1 y a la opcion2...Esta claro que la opcion3 por ser de nivel superior no lleva bitmaps...EL GRAN PROBLEMA ES: asignar un bitmap a la opcion4...

Gracias de antemano, chicos.
Espero que puedan ayudarme...

8
Visual Basic 6.0 e inferiores / Re: Grid
« en: Martes 5 de Marzo de 2002, 06:04 »
Mago, sabes que es lo extraño, te pareces a alguien que conozco.

Pero nada esta vez tu ganas.
Clemencia!!!
 :angry:

9
Visual Basic 6.0 e inferiores / Re: Grid
« en: Jueves 28 de Febrero de 2002, 07:59 »
Gracias, ya he tratado lo del bucle. El problema es que no tengo idea de como controlarlo.

Podrías darme la sintaxis que utilizarías.

10
Visual Basic 6.0 e inferiores / Re: Grid
« en: Miércoles 27 de Febrero de 2002, 07:05 »
En la columna(x) de un grid almaceno valores numericos. Como hago para sumar todos los valores de esa columna(x).

Si alguien podría ayudarme, por favor,lo agradecería.

Gracias. ;)

11
Visual Basic 6.0 e inferiores / Re: Asunto eliminado
« en: Martes 26 de Febrero de 2002, 07:36 »
De todos modos lo que había aquí no te iba a interesar.:D
Bueno, tal vez te interesarían los consejos que da "El Mago", un poco más adelante.

[Modificado el 3/5/02 por Valek]

[Modificado el 3/5/02 por Valek]

Páginas: [1]