[es] - Oblik dugmića na formi

zslavko

Član broj: 48953
Poruke: 86
77.46.240.*

+1 Profil

^{22.03.2008. u 20:14 - pre 195 meseci}

Kako da dobijem zaobljene dugmiće na formi.Čitao sam nekoliko ranijih tema ali neumem to da podesim.Ako neko može da to detaljnije pojasni.Koristim Access 2003.
Unapred hvala.

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.co.yu.

+8 Profil

Re: Oblik dugmića na formi

^{22.03.2008. u 20:43 - pre 195 meseci}

Možda možeš da koristiš imagebox umesto dugmeta. Ja sam našao način da u VB6 zaoblim dugme, ali accessovi dugmići nemaju svojstvo hwnd. Pomoću ovog koda moguće je i dalje menjati oblik forme.

Code:
' MODUL
Option Compare Database
Option Explicit

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal _
    hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 _
    As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal _
    Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal _
    Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Sub Zaobli(ZaoKv As Object, Nacin As Integer)
    Dim Zaobljeno As Long, ZaoX As Integer, ZaoY As Integer
    With ZaoKv
    ZaoX = Int(.Width / 150)
    If Nacin = 3 Then ZaoX = 0
    ZaoY = ZaoX
    If Nacin = 1 Then
        Zaobljeno = CreateEllipticRgn(0, 0, .InsideWidth / 15, .InsideHeight / 15)
    Else
        Zaobljeno = CreateRoundRectRgn(0, 0, .InsideWidth / 15, .InsideHeight / 15, ZaoX, _
        ZaoY)
    End If
    SetWindowRgn .hwnd, Zaobljeno, True
    End With
    DeleteObject Zaobljeno
End Sub

Code:
'FORMA
Private Sub Form_Load()
Zaobli Me, 1 ' ili 2 ili 3
End Sub

Ozbiljan i odgovoran mladić

Odgovor na temu