Mensajes

[Text1]

podrias poner asi:

Código [Seleccionar] Expandir


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Shift = 1 And KeyCode = 13 Then ' si es shift y enter

Text1.Text = Text1.Text & vbCrLf
Text1.SelStart = Len(Text1.Text)

End If

End Sub



debes remplazar todo lo que dice Text1 por el nombre de tu textbox ovbiamente

[shift]

shift representa las teclas "Shift", "Control", "Alt" y "Alt Gr"(el orto alt:P)

KeyCode representa la tecla presionada, y segun que teclas que entran en shift presiones mas la tecla markada en keycode[enter(13)] en la ventana Inmediate te va a mostrar que tecla precionaste junto al enter

kien sabe?
nadie sabe sobre eso?

cual es el valor aascii de la tecla shift???
el valor es 16 xD
bueno podrias hacer asi:

Código [Seleccionar] Expandir


Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Timer1_Timer()
   If GetKeyState(13) < 0 And GetKeyState(16) < 0 Then
     
      Text1.Text = Text1.Text & vbCrLf
      Text1.SelStart = Len(Text1.Text)
     
   End If
End Sub



enecesitas un timer,. el cual tiene un interval de 1 o 10, verifica los resultados

[WinID]

bueno hola,. pasaba a preguntar una cosilla simple nomas

como ago para encontrar la clase "Internet Explorer_Server" (que es la que permite ver el contenido de las paginas web en internet explorer
use este codigo pero al parecer no funciona

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE = &H10
Const ClaseDeIE = "Internet Explorer_Server"
Const ClaseDeFF = "MozillaWindowClass"

Private Sub Form_Load()
  Dim WinWnd As Long
    'Como solo queremos  la del IExolorer...
    'se la ponemos directamente
    WinWnd = FindWindow(ClaseDeIE, vbNullString) 'vbnullstring el segundo valor para que valga para cualquier ventana del IE
    If WinWnd = 0 Then Exit Sub  ' si no esta salimos sin hacer nada
    ' el show de window lo quite , me imagino que no quieres mostrarla si la encuentra
   ' el nombre de la clase tambien lo quito , ya lo tenemos
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&  ' cerramos el IE y hasta otra

End Sub



alguien tiene la solucion??'


pd: el nombre de la clase lo sake con el WinID

gracias de antemano

con respecto al mutex
no tengo muy en claro su significado pero si para que sirve,. lguna manera de hacerlo en vb??
yo abia echo algo asi,. se ejecutba la aplicacion, guardaba un dato boolean en el registro como true si el programa se estaba ejecutando y lo modificaba a false cuadno se cerrara,. si al abrir el exe la entrada era true, se cerraba,. funcionaba muy bien,. pero el problema era el siguiente: si la aplicacion se  cerraba x algun error de windows,. o xq me mataban el proceso ,. el valor kedabva en true., no lo pasaba a false, logicamente
de ahi en adelante cda ves que se keria abrir era como si ya se estubiesee ejecutando

bueno nose,. fijense
saludos

si puedes postiar el code para lanzar un proceso con distinto pid cada vez, te lo agradeceria

saludos

lo que hace LCase es pasar una cadena toda a minuscula, por ejemplo:

Código [Seleccionar] Expandir


Dim cadena as String
Dim Lcadena as String

cadena= "Soy El MaRo!"

Lcadena=LCase(cadena) 'la variable cadena pasaria a ser "soy el maro!"




espero te aya servido



El MaRo!

[msgbox Buffer]

exactamente , si los timer tienen de intervalo el valor 0 no van a "arrankar" , verifica eso,. y antes prueva lo que dijo hans, verifika que es lo que te llega usando msgbox Buffer

[DoEvents]

Do while i=i
Beep
Loop

jajajajajaaj no ay que hacer esas cosas
pero bue,. si no as probado ese codigo aun te recomiendo que escribas DoEvents despeus de Beep
pero te aseguro que aun finalizada la aplicacion vas a escuchar bepssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss xD