USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Girar Label 90º
Sfradi
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 05/03/2009 17:21 hs            
Pessoal,
Alguem tem uma luz para girar label em tempo de execução? Ja consegui um controle para isso, porem ele nao me permite que mova o label pelo form com o teclado.
 
Valeu
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 05/03/2009 20:00 hs            
retirado da sessão dicas do site vbweb
 
'No módulo
Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Const FW_NORMAL = 400


'No Form

Private Sub DrawRotatedText(ByVal txt As String, _
    ByVal X As Single, ByVal Y As Single, _
    ByVal font_name As String, ByVal size As Long, _
    ByVal weight As Long, ByVal escapement As Long, _
    ByVal use_italic As Boolean, ByVal use_underline As Boolean, _
    ByVal use_strikethrough As Boolean)

        Const CLIP_LH_ANGLES = 16
        Const PI = 3.14159625
        Const PI_180 = PI / 180#
        
        Dim newfont As Long
        Dim oldfont As Long
        
        newfont = CreateFont(size, 0, _
        escapement, escapement, weight, _
        use_italic, use_underline, _
        use_strikethrough, 0, 0, _
        CLIP_LH_ANGLES, 0, 0, font_name)
        
        oldfont = SelectObject(hdc, newfont)
        
        CurrentX = X
        CurrentY = Y
        Print txt
        
        newfont = SelectObject(hdc, oldfont)
        
        DeleteObject newfont
End Sub


Private Sub Form_Activate()
    Print "Clique no form"
End Sub

Private Sub Form_Click()
    Static angle As Long
    Cls
    DrawRotatedText "VBWeb", 2000, 1500, _
    "Times New Roman", 20, _
    FW_NORMAL, angle * 10, _
    False, False, False
    angle = angle + 10
End Sub

Private Sub Form_Load()
    Me.Width = 4800
    Me.Height = 3600
End Sub

   
Sfradi
GUARULHOS
SP - BRASIL
Postada em 06/03/2009 08:01 hs            
Treze,
 
Este código gera um print de texto, o que necessito na verdade é girar um Label pois preciso ter todos os movimentos de MouseMove do label.
 
Mesmo assim valeu....
 
T+
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página