.:: .:: Lib-Code - Visual Basic - Draw Polygon ::. ::.

C++ PHP Java Linux & UNIX ColdFusion Visual Basic ActionScript CGI/Perl JavaScript HTML/CSS Other Languages Bash ASP C mySQL Python C# Assembly VB.NET Scheme Ruby





System Uptime






Byte Format






File Download to Temp Dir






Shutdown Computer from VB






Easy String Writing in Registry






Open/Close your CD-Drive.






Detecting and Aborting Windows Shutdown from VB






Windows XP Task Manager Disabler/Enabler






Is the Program being Debugged?






TextBox Telephone Number Formatting






REMOVING AN APP FROM THE PROCESSES LIST






Unescape






RoundUp and RoundDown functions in VB 6.0






Classic Bouncing Balls






Decimal to Binary






Analog Clock






Stopping the user from exiting out of your app.






RoundUp and RoundDown






Date (in words) to Oracle Date Format






Calculator






Opening / Closing CDROM in VB6 drive using command buttons..






Starting a Screen saver using VB6 code






Flash the Form window






Starting an *.exe file from VB6 code






Playing a Sound File From VB6 appl






Deternining Drive Type Through VB






Convert Number to Equivalent TExt






Inverse Number






Reading a Text file Line by Line






Selecting a an Application's Default Printer and Printing to it






Scroller






Draw Polygon






Open & Saving .txt files






Quadratic Formula






Inserting Hyperlinks in VB






HD serial Number (Hardcoded One)






Encrypt-Decrypt File with Password






Creating An ODBC






PutBackgroung






Find a day in the week






Shell revisited






Enabled/Disabled an array of command button






Projectile Motion






LUHN CHECK PROGRAM






Tic Tac Toe






Basic Spell this Picture Game






Cost Calculator






Data Validation w/o messageBoxes






Random Password






AutoNumber in Access






ADO connection to excel






Mouse Input Test






Number conversions (binary, decimal, hex)






Bubble_sort






Fibonacci Numbers done recrusively






Recrusive dec->x algorithm






Quadratic equation solver






Arabic numeral converter to roman numerals (recursive)






Non repeating random number generator






Return cpu up time (recursively)






Read & Write to file






Return specific pixel RGB code






Split RGB to Red;Green;Blue






Hangman






Elementar calculator






Change screen resolution






Simple database connectivity






Check if a character is alpha(lower or upper) or alpha numeric,






Loading the ProgressBar






Color combination






Find USB Drive Letter






Download file using ftp






User validation






Creating Auto Number Generation






Ghost Mail






Read registry






Write to registry






Prevent a program from running






Am I running from IDE or not ?






My CD Collection






Password Keeper






Finding your application's path






Simple Text Encryption






Change System Date fomat






Run program outside vb






Get System Volume Infomation






Fade out your form

Code : VISUAL BASIC - DRAW POLYGON

Code Discription :

Right Click And Copy This Code

"===============================================================
"The form code is only to show the function calling.
"It looks a littlelong but there is "Nothing" in the form code.
"Please don"t get trouble with them
"The "StdPicture" is only used in the FillStyle "FillBitmap"
"We can only use 8 * 8 Bitmap as pattern
"===============================================================
Option Explicit
Dim FillPattern As StdPicture

Private Sub chkDemo_Click()
    tmrDemo.Enabled = chkDemo.Value
End Sub

Private Sub cmdControll_KeyPress(KeyAscii As Integer)
If tmrDemo.Enabled = True Then MsgBox "Please disable "Demo Mode"", vbInformation
    If KeyAscii = vbKeyR Then
        txtRot = txtRot - 20: tmrDemo_Timer
    ElseIf KeyAscii = vbKeyT Then
        tmrDemo_Timer
    End If
End Sub

Private Sub Form_Load()
    lstDrawStyle.Selected(8) = True
    PicView.FillColor = Val(txtSelCol)
    Set FillPattern = imgPattern(12).Picture
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Is it Satisfactory?", vbQuestion + vbYesNo, "Please tell Me") = vbYes Then
        MsgBox "(  PLEASE "RATE" THIS CODE  ).I want to know how do you rate this code.The site address will be copied to your clipboard", vbInformation, "ThankYou"
    Else
        MsgBox "( PLEASE GIVE FEEDBACK ) to improve this code.The site address will be copied to your clipboard", vbInformation, "Please Give FeedBack"
    End If
    Clipboard.SetText ("http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=57807&lngWId=1")
End Sub

Private Sub imgPattern_Click(Index As Integer)
    Set FillPattern = imgPattern(Index).Picture
    imgSelected.Picture = imgPattern(Index).Picture
End Sub

Private Sub picCol_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PicView.FillColor = picCol.Point(X, Y)
    txtSelCol = picCol.Point(X, Y)
    txtSelCol.BackColor = picCol.Point(X, Y)
    picCol.Visible = False: tmrDemo.Enabled = True
End Sub

Private Sub PicSel_Click()
    picCol.Visible = True: tmrDemo.Enabled = False
End Sub

Private Sub tmrDemo_Timer()
Dim Cnt  As Boolean

    If chkIs = 1 Then Cnt = True    "Checks whether the "IsCentre" is True
    txtRot = Val(txtRot) + Val(txtSpeed)
    
    "I can"t add an error message when "DrwPlgn=False" in a "timer"
    PicView.Cls
    DrawPolygon PicView, Val(txtX), Val(txtY), Cnt, Val(txtSides), Val(txtSideLen) * 567, lstDrawStyle.ListIndex, Val(txtRot), FillPattern
End Sub