Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Function HListScroll7913Add(ListX As ListBox) As Boolean
On Error GoTo Err:
Dim X As Long
Dim new_len As Long
Dim max_len As Long
HListScrollAdd7913 = True
For X = 0 To ListX.ListCount - 1
new_len = 10 + ScaleX(TextWidth(ListX.List(X)), ScaleMode, vbPixels)
If max_len < new_len Then max_len = new_len
Next
SendMessage ListX.hwnd, &H194, max_len, 0
Err:
HListScrollAdd7913 = False
End Function
Private Function Letras3D7913(Pic As PictureBox, Frase As String, Red As Long, Green As Long, Blue As Long, Optional Orientacion As Boolean = True, Optional Tamaño As Long = 25, Optional Fuente As String = "Arial")
Dim x As Long
Pic.FontName = Fuente
Pic.FontSize = Tamaño
For x = 255 To 1 Step -1
Pic.ForeColor = RGB(Abs(Red - x), Abs(Green - x), Abs(Blue - x))
If Orientacion Then Pic.CurrentX = x Else Pic.CurrentX = 255 - x
If Orientacion Then Pic.CurrentY = x Else Pic.CurrentY = 255 - x
Pic.Print Frase
Next x
End Function