Mensajes

Como NO pides ejemplos de coigos mejor te voy al punto sin tanto rollo

Parala imagen:
   con PaintPicture  o con la api bitblt
      combinarlo con TransparentBlt  para transparencias un X color
Para texto:
   Api DrawText

[PaintPicture]

Hola,yo creo que con un PaintPicture te alcanza...

saludos.

lo mismo digo, aun que la funcion que puse detecta escala la imagen a el picture y lo ajusta a este sin importar el tamaño de la imagen a cargar y no distorciona la imagen en cuestion de anchura y altura je (probarlo para verlo mejor)

Código (vb) [Seleccionar] Expandir

r=cargarredimencionarimg("c:\img.jpg",picture1)

Código (vb) [Seleccionar] Expandir

Private Function RndString(ByVal LongString As Integer) As String
Dim I As Integer
    Randomize Timer
    For I = 0 To LongString
        Select Case (Int((3 * Rnd) + 1))
            Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48))
            Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65))
            Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97))
        End Select
    Next
End Function

Corrigiendo xP

Código (vb) [Seleccionar] Expandir

Private Function RndString(ByVal LongString As Integer) As String
Dim I As Integer
    Randomize Timer
    For I = 1 To LongString
        Select Case (Int((3 * Rnd) + 1))
            Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48))
            Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65))
            Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97))
        End Select
    Next
End Function


el anterior me daba 11 caracteres cuando yo pedia 10 je xP este me gusta mas

Aca esta el codigo espero y te agrade

Código (vb) [Seleccionar] Expandir


Dim ImagenFoto As IPictureDisp
Public Function CargarRedimencionarIMG(sRuta As String, _
                        PictureFix As PictureBox, _
                        Optional ByVal Pic_Ancho As Double, _
                        Optional ByVal Pic_Alto As Double, _
                        Optional ByVal X As Integer = 0, _
                        Optional ByVal Y As Integer = 0, _
                        Optional ByVal X2 = 0, _
                        Optional ByVal Y2 = 0, _
                        Optional ByVal Ancho2, _
                        Optional ByVal Alto2, _
                        Optional Opcional) As Long
   
    On Error GoTo Nel:
   
    Dim Ancho As Single, Alto As Single, Porcentaje As Single
   
    Pic_Ancho = IIf(Pic_Ancho <= 0, PictureFix.Width, Pic_Ancho)
    Pic_Alto = IIf(Pic_Alto <= 0, PictureFix.Height, Pic_Alto)
   
    PictureFix.Width = Val(Pic_Ancho): PictureFix.Height = Val(Pic_Alto)
    PictureFix.Cls
    Set ImagenFoto = LoadPicture(sRuta)
    Ancho = ImagenFoto.Width
    Alto = ImagenFoto.Height
    If Ancho < PictureFix.Width And Alto < PictureFix.Height Then
        Porcentaje = 100
        CargarRedimencionarIMG = CentrarPicture(PictureFix, Ancho, Alto, X, Y, Porcentaje, X2, Y2, Ancho2, Alto2, Opcional)
        Exit Function
    End If
    If Ancho > PictureFix.Width Or Alto > PictureFix.Height Then
        If Ancho > Alto Then
            Porcentaje = (PictureFix.Width * 100) / Ancho
        Else
            Porcentaje = (PictureFix.Height * 100) / Alto
        End If
        CargarRedimencionarIMG = CentrarPicture(PictureFix, Ancho, Alto, X, Y, Porcentaje, X2, Y2, Ancho2, Alto2, Opcional)
        Exit Function
    ElseIf Ancho <= PictureFix.Width Or Alto <= PictureFix.Height Then
        If Ancho > Alto Then
            Porcentaje = (PictureFix.Width * 100) / Ancho
        Else
            Porcentaje = (PictureFix.Width * 100) / Alto
        End If
        CargarRedimencionarIMG = CentrarPicture(PictureFix, Ancho, Alto, X, Y, Porcentaje, X2, Y2, Ancho2, Alto2, Opcional)
    End If
    Exit Function
Nel:
    Cargar = 0
    Err.Clear
End Function
Private Function CentrarPicture(PictureFix As PictureBox, _
                                Optional ByVal Ancho As Double, _
                                Optional ByVal Alto As Double, _
                                Optional ByVal X As Integer = 0, _
                                Optional ByVal Y As Integer = 0, _
                                Optional Porcentaje As Single = 100, _
                                Optional ByVal X2 As Integer = 0, _
                                Optional ByVal Y2 As Integer = 0, _
                                Optional ByVal Ancho2, _
                                Optional ByVal Alto2, _
                                Optional Opcional) As Long
    On Error GoTo Nel
    Ancho = (Ancho * Porcentaje) / 100
    Alto = (Alto * Porcentaje) / 100
    PictureFix.Width = Ancho
    PictureFix.Height = Alto
    PictureFix.PaintPicture ImagenFoto, X, Y, Ancho, Alto, X2, Y2, Ancho2, Alto2, Opcional
    CentrarPicture = 1
    Exit Function
Nel:
    CentrarPicture = 0
    Err.Clear
End Function


yo cuando aprendia apenas VB hice algo similar solo que mi codigo era muuuy largo xS obviamente apenas empesaba y no por maestros si no por mi propia cuenta y ejemplos descargados era mas o menos el doble o triple de tu codigo je xP haber i lo ayo y lo pongo je.

Aun asi esta bueno xP

Hay un botoncito llamado Buscar [ ] en este foro ya se a publicado la respuesta anteriormente



pero aun asi te digo que es la API: SetMenuItemBitmaps

ante todo buenas noches, acudo esta noche a el chat por tener un problema con un modem starbritge, el modelo es fcc dsl 305eu.
El modem es nuevo el problema que presenta es que sincroniza cuando le da la gana, saben tengo otro modem claro de diferente marca el cual en mi linea siempre funcion bien, ahora bien hay alguna configuracion que kle pueda yo realizar o es que espa desprogramado, por tener kla opcion de router? les agradezco de verdad su ayuda

Invitame de lo que te fumaste broo para estar en tu ondaaa

Esto ira aquí cuando vea elefantes Rosas ("Como en unos 15 minutos" vive la vida carnal)

ja no ya enserio por que piensas que esto va en esta parte?

bien bueno aca esta deberias espesificar eso je xP

me acabe de leer esto <Click aca>

Código (vb) [Seleccionar] Expandir


Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As Any) As Long

Const TPM_NONOTIFY = &H80
Const TPM_RETURNCMD = &H100

Private Type PointAPI
    x As Long
    y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long

Dim Menu As Long

Private Sub Form_Load()
    Menu = CreatePopupMenu()
    Call AppendMenu(Menu, MF_STRING, 1, "Me Corte las Venas")
    Call AppendMenu(Menu, MF_STRING, 2, "Malditasea me muerrooo")
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim ID As Long
    Dim Cursor As PointAPI
    Call GetCursorPos(Cursor)
    ID = TrackPopupMenu(Menu, TPM_NONOTIFY + TPM_RETURNCMD, Cursor.x, Cursor.y, 0, Me.hwnd, 0)
    Select Case ID
    Case 1:
        MsgBox ("Me Corte las Venas")
    Case 2:
        MsgBox ("Malditasea me muerrooo")
        Unload Me
    End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call DestroyMenu(Menu)
End Sub


puedes uar algo en PHP http://www.hotscripts.com/PHP/Script...ers/index.html
salu2

el lo desea en VB no en PHP ademas tu link no funciona  corrigelo ¬¬  (los ... ja)

mmm a lo que entiendo es que tienes un menu como estos de archivo edicion etc etc no?  bueno crealo ok

Pasos:

Crea los menus...
no los ocultes aun mejor ocutalos cuando se ejecute el form q los contiene

private sub form_load()
menu.visible=false
end sub

pero en el modo diseño despiegalos y dales un click a estos y te aparecera la region de programan de tal submenu

que deberia ser algo asi

private sub nombresubmenu_click()
unload me 'Descarga el formulario actual
end sub
o tambien puedes usar
private sub nombresubmenu_click()
end
end sub