Visual Basic Button Source Code Sample

WolfeByte Solutions: Visual Basic Controls

Visual Basic Controls

      Testimonials
    ... Really good -     clean code ...

    ... I would suggest   any vb programmer   get these!

   ... your software    saved me a bunch    of time ...

  ... This is exactly   what I have been   looking for ...

  ... Very well done!

Visual Basic Button Control v1.1 Sample *Code sample from the controls .bas file (intentionally incomplete and won't run by itself).* '******** VBButton Control v1.0 for VB 3.0-6.0 ****** '*** ** ' Property of WolfeByte Solutions 1995-2006 ' ' This program is protected by and subject to all ' Federal copyright laws governing the duplication and ' distribution of authored software. With the purchase and ' use of this program you agree to release WolfeByte Solutions ' of all liability and/or damages as related to the use of ' this program and also acknowledge that no claims or ' warranties regarding its usage have been offered. ' '*** ** '****** Update Version 1.1 June 7, 2002 ******** Option Explicit 'All subs are in this module. To create a new control - create a new 'picturebox and size it to the desired button size. Then copy the code 'from the demo applications following events and paste them into the same 'events in your project: 1) Form_Load 2) Picture1_DblClick, '...GotFocus, ...LostFocus, ...MouseMove, ...MouseUp and ...MouseDown. Rename any 'picture1 references in this code to the names of your new controls. 'Make a record structure for font types Type ftType ftName As String ftSize As Integer ftBold As Integer ftItalic As Integer ftUnderline As Integer ftColor As Long End Type 'Make a record structure for a cmdBtn - one time only Type cmProps cmdState As Integer cmdBevel As Integer cmdFont As ftType cmdText As String cmdVAlign As String cmdHAlign As String cmdMultiline As Integer cmdFocus As Integer End Type 'Declare array of the record type for number of cmdBtns you want (Option Base is 0 - default) Global cmdBtn(5) As cmProps Sub DrawCmdBtn(inCmd As cmProps, inPct As PictureBox) 'Called each time the button changes focus or up/down Dim X%, Y% inPct.Cls 'Used to clear text (not need if not using picture) Select Case inCmd.cmdFocus 'Draw button according to focus state Case True inPct.FillStyle = 1 inPct.Line (0, 0)-(inPct.ScaleWidth - 1, inPct.ScaleHeight - 1), 0, B 'Focus rectangle in these two loops For X = inCmd.cmdBevel + 3 To inPct.ScaleWidth - inCmd.cmdBevel - 3 Step 2 inPct.PSet (X, inCmd.cmdBevel + 2), 0 inPct.PSet (X, inPct.ScaleHeight - inCmd.cmdBevel - 3), 0 Next For Y = inCmd.cmdBevel + 3 To inPct.ScaleHeight - inCmd.cmdBevel - 3 Step 2 inPct.PSet (inCmd.cmdBevel + 2, Y), 0 inPct.PSet (inPct.ScaleWidth - inCmd.cmdBevel - 3, Y), 0 Next Case False inPct.Line (0, inPct.ScaleHeight - 1)-(inPct.ScaleWidth, inPct.ScaleHeight - 1), 0 inPct.Line (inPct.ScaleWidth - 1, 0)-(inPct.ScaleWidth - 1, inPct.ScaleHeight), 0 End Select SetFonts inCmd.cmdFont, inPct 'Prepare font settings Select Case inCmd.cmdState Case -1 'Button up For X = 0 To inCmd.cmdBevel - 1 inPct.Line (1 + X, inPct.ScaleHeight - 2 - X)-(inPct.ScaleWidth - 2 - X + 1, inPct.ScaleHeight - 2 - X), RGB(92, 92, 92) inPct.Line (1 + X, 1 + X)-(inPct.ScaleWidth - 2 - X + 1, 1 + X), RGB(255, 255, 255) inPct.Line (inPct.ScaleWidth - 2 - X, 1 + X)-(inPct.ScaleWidth - 2 - X, inPct.ScaleHeight - 2 - X), RGB(92, 92, 92) inPct.Line (1 + X, 1 + X)-(1 + X, inPct.ScaleHeight - 2 - X), RGB(255, 255, 255) Next DrawBtnTxt inPct, inCmd.cmdBevel + 3, inCmd.cmdBevel + 1, inPct.ScaleWidth - inCmd.cmdBevel - 3, inPct.ScaleHeight - inCmd.cmdBevel - 3, inCmd.cmdText, inCmd.cmdHAlign, inCmd.cmdVAlign, inCmd.cmdMultiline Case 0 'Button down DrawBtnTxt inPct, inCmd.cmdBevel + 5, inCmd.cmdBevel + 2, inPct.ScaleWidth - inCmd.cmdBevel - 1, inPct.ScaleHeight - inCmd.cmdBevel - 2, inCmd.cmdText, inCmd.cmdHAlign, inCmd.cmdVAlign, inCmd.cmdMultiline End Select End Sub Sub DefineCmdBtn0(inPct As PictureBox) 'This sub needs to be called once from the form load event so that the 'cmdBtn(0) is assigned its properties. Create one for each cmdBtn you 'have - DefinecmdBtn1..2... You also have to increase the number of 'elements in the cmdBtn array which is dimensioned in the declarations 'section - Global cmdBtn(x) as cmProps. 'Properties for cmdBtn0 inPct.AutoRedraw = True 'Allow creation of picturebox in memory inPct.ScaleMode = 3 'Set the picturebox scale to pixels inPct.BorderStyle = 0 'Remove picturebox border inPct.BackColor = QBColor(7) 'Button color (not needed if you set the picturebox color at design time) cmdBtn(0).cmdState = -1 '-1 button up, 0 button down cmdBtn(0).cmdBevel = 1 'Button bevel height cmdBtn(0).cmdFont.ftName = "MS Sans Serif" 'Button font name cmdBtn(0).cmdFont.ftSize = 8.25 'Button font size cmdBtn(0).cmdFont.ftBold = True 'Button font bold cmdBtn(0).cmdFont.ftItalic = False 'Button font italic cmdBtn(0).cmdFont.ftUnderline = False 'Button font underline cmdBtn(0).cmdFont.ftColor = QBColor(0) 'Button font color cmdBtn(0).cmdText = "Command1" 'Button text - use the ~ to force line break - multiline must be true cmdBtn(0).cmdVAlign = "center" 'Button Text Vert Alignment cmdBtn(0).cmdHAlign = "center" 'Button Text Horz Alignment cmdBtn(0).cmdMultiline = False 'Determines if Text will span multiple lines cmdBtn(0).cmdFocus = False 'Button has focus? End Sub
More Information: • Visual Basic Button (Main Page) • Visual Basic Button Picture • Visual Basic Button Download • Free!
Other Visual Basic Controls: • Visual Basic Calendar • Visual Basic Clock • Visual Basic Slider • Visual Basic Scheduler • Visual Basic Source Code Suite 3 • Visual Basic Source Code Suite 4

Copyright © WolfeByte Solutions 1995-2006. All Rights Reserved. | About Us | Privacy Policy