Mensajes

buenas noches que tal?
puedes intentar con esto:

Código [Seleccionar] Expandir


Me.Text = TextBox1.Text


espero que te sirva.

Necesitas dos commandbutton en el proyecto y pega este código:

Código [Seleccionar] Expandir


'Constantes para pasarle a la función Api SetWindowPos
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '
 
' Función Api SetWindowPos
Private Declare Function SetWindowPos _
    Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, _
        ByVal cX As Long, _
        ByVal cY As Long, _
        ByVal wFlags As Long) As Long
 
'En el primer parámetro se le pasa el Hwnd de la ventana
'El segundo es la constante que permite hacer el OnTop
'Los parámetros que están en 0 son las coordenadas, o sea la _
pocición, obviamente opcionales
'El último parámetro es para que al establecer el OnTop la ventana _
no se mueva de lugar y no se redimensione
 
Private Sub Command1_Click()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub
 
'Colocamos la ventana en su posicion original:
Private Sub Command2_Click()
'Hacemos lo mismo que en el evento anterior, pero pasandole la otra constante
'para que deje de estar siempre encima de las demás, estado normal
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Siempre visible (Always Ontop)"
    Command2.Caption = "Ventana Normal"
End Sub


espero que te sirva.

podrias intentar con esto:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    If Val(Text1.Text) <> Val(Text2.Text) Then ' para enteros
        MsgBox "nueva version"
    ElseIf (Text1.Text) <> (Text2.Text) Then 'para texto
        MsgBox "nueva versión"
    else
        msgbox "no hay nada"
    End If
End Sub




aqui esta tu mismo codigo con algunas correcciones:

Código [Seleccionar] Expandir


#include <iostream>
#include <conio.h>

int Add(int hola, int chau)
{
   cout << "Numeros ingresados: " << hola << "  " << "y " << chau;
   cin.get();
   return (hola + chau);
}

/***** Programa Principal */

int main ()
{
   cout << "ingresa dos numeros para sumar\n";
   int a,b,c;
   cin >> a;
   cin >> b;
   c=Add (a,b);
   cout<<"El resultado es:\t " <<c; //faltaban << y el resutado de la variable c no puede ir << c SINO ASI <<c
   getch(); //agregado desde la libreria <conio.h> en vez de pause
}


Aqui esta el código:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
   Dim i As Integer, suma As Integer
   Dim s As String
   
   For i = 1 To Len(Text1.Text) 'comienza el ciclo desde el 1 hasta la cantidad que es
                                             'permita ingresar en el textbox osea 3
       suma = suma + Val(Mid(Text1.Text, i, 1)) 'Extraer los #s y los sumas uno x uno
   Next i 'termina el ciclo
   MsgBox suma, vbInformation, "TAREA" 'muestras el resultado
End Sub

Private Sub Form_Load()
   Text1.MaxLength = 3 'solo permite ingresar tres caracteres al textbox
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then 'solo acepta números backspace y supr
       KeyAscii = 0
   End If
End Sub


La función LEN Devuelve un tipoLong que contiene el número de caracteres en una cadena o el número de bytes necesarios para almacenar unavariable. En este caso estás indicando que cuente los caracteres que se ingresen en el cuadro de texto, por lo tanto la setencia for contara desde uno hasta la cantidad de caracteres que tiene el cuadro de texto.

La función MID Devuelve un tipo Variant (String) que contiene un número especificado de caracteres de una cadena. Mid(quevas a extraer, desdedonde,cuantoscaracteres).

la función val Devuelve los números contenidos en una cadena como un valor numérico del tipo adecuado. En pocas palabras los número que se toman como string, te los convierte en integer.

Quiero compartir con ustedes aeroglass en vb6 y a la vez pedirles su ayuda de como poder ocupar las labels con efecto de transparencia y la posibilidad de utilizar png en el proyecto. lo pueden descargar examinar el codigo fuente, modificarlo y compartirlo con toda la comunidad.

Todos los controles de visual basic se adaptan al aeroglass, el único problema es que
al poner una label en transparente, este pierde su estilo y se ve borroso.

espero que puedan contribuir y gracias.

https://drive.google.com/file/d/0B1tWjylBANovZEdXZGQtYzI2WWs/edit?usp=sharing

QUE TAL COMO ESTAN?
Veran quiero agregar esta función al menu contextual de las unidades, pero me tira un error diciendo que no se puede ejecutar el dicho comando por algun error de referencia, talvez yo sea que este colocando de forma equivocada la función:

Voy a esta dirección del registro de windows:
HKEY_CLASSES_ROOT\Drive\shell

luego creo una clave con el nombre de:
Desocultar carpetas y archivo

de nuevo creo una subclave llamada:
Command

y en su valor predeterminado con el siguiente código:

attrib -s -r -h /d /s %1

no se si lo estaré declarando de una forma incorrecta, espero puedan ayudarme, gracias

gracias por la respueta,, damos por cerrado el tema, gracias. feliz dia

buenos dias, tengo una pequeña duda respecto a un dato:
Tengo una motherboard KS8-LA (HP PAVILLON W5100LA) 2gb de RAM DDR, AMD 3200+, HDD 160 GB, LECTOR DE TARJETAS, ACELERADORA AGP ATI RADEON 9800XT salida DVI y VGA con su respectivo conector de energia(internetamente), 3 fan dando aire al cpu, bueno mi duda es si esta repectiva tarjeta de video me podria soportar dos monitores CRT, si no tendria problemas de calentamiento y llegara a ruinar la tarjeta. gracias.

Hola amigos, veran he logrado quitar el sonido temporalmente a WindowsXP pero no logro q funciona para windows vista este es el code:

algunas API:

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const BM_GETCHECK = &HF0
Private Const BM_CLICK = &HF5
Private Const WM_SYSCOMMAND = &H112
Private Const SC_CLOSE = &HF060&

Dim Hndl As Long
Dim chekeo As Long


Esto va en un CommandBottom:

Código [Seleccionar] Expandir


If Dir("C:\Windows\System32\Sndvol.exe") <> "" Then 'VISTA
        Shell "C:\Windows\System32\Sndvol.exe", vbHide
        Hndl = FindWindow("Volume Control", "Mezclador de volumen")
        Hndl = FindWindowEx(Hndl, 0, "Button", "&Silecio")
        chekeo = SendMessage(Hndl, BM_GETCHECK, 0, 0)
If chekeo = 1 Then Call SendMessage(Hndl, BM_CLICK, 0, 0)
        Hndl = FindWindow("Volume Control", "Mezclador de volumen")
        Call SendMessage(Hndl, WM_SYSCOMMAND, SC_CLOSE, CLng(0))
End If


espero que me puedan ayudar y gracias por todo buena suerte...