Programación General > Visual Basic 6.0 e inferiores

 6 Preguntas En 1

(1/2) > >>

jodijo5:
amigos, tengo unas dudas

1. como llamo al comando ejecutar del menu inicio
2. como roto una imagen dentro de un imagebox o un picturebox
3. como le hago transparente una imagen
la mas importante
4. como hago una plicacion como predeterminada de windows(es decir que ni bien entro como usuario a windows no deje que se ejecute "explorer.exe" y solo se ejecute mi aplicación, ese efecto lo ví en el programa BPM de musica que lo pueden conseguir tambien con el nombre de ALCATECH)
5. como agrego una imgen de mapa de bits o cualquier elemento a un archivo de recursos
6. como me averiguo el nombre de mi equipo, esque no puedo hacer correctamente la coneccion a una base de datos en sql

gracias a migos, se que son muchas pero ayudenme porfavor, esque necesito terminar mi aplicacion cuanto antes. gracias.

ebolo:
La 6ª) es fácil, aquí tienes el código.

--- Código: Text --- Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongFunction Usuario() As String    Dim Nombre As String * 255, Respuesta As Long, Longitud As Long, Res As Long        'Crea Buffer    Nombre = ""    Longitud = Len(Nombre)    Res = GetUserName(Nombre, Longitud)    If Res And Longitud > 0 Then        Usuario = Left$(Nombre, Longitud)    Else        Usuario = "No encontrado"    End IfEnd FunctionFunction Ordenador() As String    Dim Nombre As String * 255, Respuesta As Long, Longitud As Long, Res As Long        'Crea Buffer    Nombre = ""    Longitud = Len(Nombre)    Res = GetComputerName(Nombre, Longitud)    If Res And Longitud > 0 Then        Ordenador = Left$(Nombre, Longitud)    Else        Ordenador = "No encontrado"    End IfEnd FunctionPrivate Sub Form_Load()    Tx_Datos(0).Text = Usuario    Tx_Datos(1).Text = OrdenadorEnd Sub  
Saludos.

jodijo5:
gracias amigo

jodijo5:
aigan y no me pueden ayudar con las demas?

DiabloRojo:
Qué tal jodijo5?.
Con respecto a cómo rotar una imagen en un picturebox busca en la ayuda de vb por el método PaintPicture aunque creo que con éste método sólo puedes rotar la imagen horizontal y verticalmente.
Con respecto a averiguar el nombre de tu equipo puedes usar la función api GetComputerName. Aquí tienes un link donde puedes saber un poco sobre esta función:

Link



Suerte.


DiabloRojo.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente