Mensajes

estaba invistigando sobre el tema y probando cosas y descubri algo xD

no lo hagan por que las bocinas empiesan a sonar feo y se traba el mouse xD

Código (vb) [Seleccionar] Expandir

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift And vbCtrlMask Then
SendKeys "hola xD"
   On Error Resume Next
    ActiveControl.Text = ""
End If
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub


se pone loco y si tienes poca ram ni es administrador de tareas lo quita xD

claro siempre y cuando cumpliendo con lo que pide el codigo xD

para el 3gp usa quick Time y para flv puedes hacer uno en flash MX 8

eso se hace con funciones logicas IF THEN ELSE

pero si ya te resolvieron la duda ni ablar

Esta rutina es para arrastrar y redimenzionar contrles en tiempo de ejecucion
para el VB 2008

para redimenzionar con el boton derecho

Código (vb) [Seleccionar] Expandir

Friend Class MoverControles
    Inherits System.Windows.Forms.Form

    Private DX, DY As Integer
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, _
    ByVal X As Integer, ByVal Y As Integer, ByVal cX As Integer, ByVal cY As Integer, ByVal wFlags As Integer) As Integer

    Const GWL_STYLE As Integer = (-16)
    Const WS_THICKFRAME As Integer = &H40000
    Const SWP_DRAWFRAME As Integer = &H20
    Const SWP_NOMOVE As Integer = &H2
    Const SWP_NOSIZE As Integer = &H1
    Const SWP_NOZORDER As Integer = &H4
    Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AsignarEventos(Me)

    End Sub
    Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        DX = e.X
        DY = e.Y
        If e.Button = MouseButtons.Right Then
            CambiarEstilo(CType(sender, Control))
        Else
            CType(sender, Control).BringToFront()
        End If
    End Sub
    Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            CType(sender, Control).Left = e.X + CType(sender, Control).Left - DX
            CType(sender, Control).Top = e.Y + CType(sender, Control).Top - DY
        End If
    End Sub
    Private Sub AsignarEventos(ByVal elControl As Control)
        Dim ctrl As Control
        For Each ctrl In elControl.Controls
            If ctrl.Name <> "cmdAlgo" And ctrl.Name <> "txtControl1" And ctrl.Name <> "txtControl1" Then ' aqui vaz agregando los controles que quieres estaticos y no redimensionables
                AddHandler ctrl.MouseDown, AddressOf Me.Control_MouseDown
                AddHandler ctrl.MouseMove, AddressOf Me.Control_MouseMove
                AsignarEventos(ctrl)
            End If
        Next
    End Sub
    Private Sub CambiarEstilo(ByVal aControl As Control)
        Dim Style As Integer
        Try
            Style = GetWindowLong(aControl.Handle.ToInt32, GWL_STYLE)
            If (Style And WS_THICKFRAME) = WS_THICKFRAME Then
                Style = Style Xor WS_THICKFRAME
            Else
                Style = Style Or WS_THICKFRAME
            End If
            SetWindowLong(aControl.Handle.ToInt32, GWL_STYLE, Style)
            SetWindowPos(aControl.Handle.ToInt32, Me.Handle.ToInt32, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
        Catch
        End Try
    End Sub
End Class

Me.Caption = Environ("windir") & "\" & "Malicio.exe"
se usa asi,
y para saber que claves soporta tu sistema con :
Ctrl+R>cmd>set
ay viene con su clave y su especificasion

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Url As String
Private Sub cmdExt_Click()
    Url = txtURL.Text
    If Len(Url) > 11 Then
        txtCode.Text = intCon.OpenURL(Url)
        MsgBox "ya esta el code we", vbOKOnly, ""
    Else
        MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
    End If
End Sub


jejeje esto lo avia echo para sacar el codigo fuente html pero = te sirve
por que saca los txt

a i por que no simplemente  programas en VB 2005

esta facilito, solo cambian pocas cosas

bueno realmente muchas cosas camban, tanto que algunos colegas lo cnsuderan otro lenguaje y ya no el de cuarta como solia ser en mis tiempos

jejejeje

por ejemplo asimple vista vi que desaparecio caption y aparecieron mas propiedades y subpropiedades

en conclusion es un desman pero ve lo de esta forma, ya sabras "dos lenguajes xD"

xD bueno  saludos

por cierto alguien sabe si ay algun cambio de VB 2005 al 2008 ?

pues cambia pastante

y vb 2005 no es = a VB.NET

yo contaba con Navigate2 y no lo tiene el 2005 express

xD

http://foro.elhacker.net/index.php?board=62.0

este es el sub foro que buscas,

por cierto ay? subforo de VB 2005 Express

jojojo no tienes algun link EON