DotA-GaMeRs
<script>
var adfly_id = 539195;
var adfly_advert = 'int';
var frequency_cap = 5;
var frequency_delay = 5;
var init_delay = 3;
</script>
<script src="http://adf.ly/js/entry.js"></script>

Welcome to DotA-GaMeRs ! if u are new please register in our forum ,, Have a nice stay Smile


You will find everything you need in Gaming ,, From Gamers To Gamers !
 
HomePortalCalendarFAQSearchUsergroupsRegisterContact UsDG ShopLog in
there will be a big changes in the site , like updates and new things
please be active member coz any inactive member will be kicked or any inactive admin will be demoted then kicked
there will be new items in shop like garena gold member users and garena high lvl users ,,,,, just post a good topics to get DG.Coins
dg_web_shop.png Is Now Available

Share | 
 

 Paint .. Dota-Gamers

View previous topic View next topic Go down 
AuthorMessage
Code.7
Level 190 Moderator
Level 190 Moderator
avatar

Posts : 266
Join date : 2010-03-16

PostSubject: Paint .. Dota-Gamers   Fri Apr 16, 2010 10:36 am

Old One , But Great One ..

ba3ref eno ma3mool men gabel 9999999 mrra bs kont zahgan w kont bat3allam 3al variables ..
anyway 3melet barnamej "paint"
ta3ban msh tsadgo :S
bs btegdar torsom bel pen w t3'ayyer el loon Razz

bs ta at3allam shoae ra7 a5lee ye3mal load pictures w save pictures enshala Very Happy

* el download b a5r el page .

btw hay el code zy ma hwa 3shan etha 7da 7ab y3addel 3leeh .
Code:
Option Explicit

Const Margin As Integer = 10
Const SmallSpace As Integer = 2
Const LargeSpace As Integer = 10


Const MaxColors As Integer = 4
Dim Colors(MaxColors + 1) As Long


Const MaxLineWidths As Integer = 4
Dim LineWidths(MaxLineWidths + 1) As Integer



Private Sub adsads_Click()
picCanvas.Cls
End Sub

Private Sub asd_Click()
End
End Sub

Private Sub asddasdas_Click()
MsgBox "Version 1.0", vbInformation, "Version"
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub dasdasdas_Click()
MsgBox "Made By Code.7", vbInformation, "About"
End Sub

Private Sub Form_Load()
    Dim I As Integer
   
    picCanvas.AutoRedraw = True
    picCanvas.BackColor = vbWhite
    picCanvas.ToolTipText = "Click the left mouse button to sketch"
    cmdClear.ToolTipText = "Click to clear the canvas"
    Form1.ScaleMode = vbPixels
   
    CreateColorPalette
    CreateLineWidthPalette
   
    lblColor_Click MaxColors
    optLineWidth(0).Value = True
    optLineWidth_Click 0
End Sub

Private Sub Form_Resize()
    picCanvas.Width = Form1.ScaleWidth - picCanvas.Left - Margin
    picCanvas.Top = Margin
    picCanvas.Height = Form1.ScaleHeight - picCanvas.Top - Margin
    cmdClear.Top = Form1.ScaleHeight - cmdClear.Height - Margin
End Sub



Private Sub CreateColorPalette()
    Dim I As Integer
   
    Colors(0) = vbYellow
    Colors(1) = vbGreen
    Colors(2) = vbBlue
    Colors(3) = vbRed
    Colors(4) = vbBlack
   
    lblColor(0).Left = Margin
    lblColor(0).Top = Margin
    lblColor(0).ToolTipText = "Click to set the drawing color"
    lblColor(0).BackColor = Colors(0)
    For I = 1 To MaxColors
        Load lblColor(I)
        lblColor(I).BackColor = Colors(I)
        lblColor(I).Left = Margin
        lblColor(I).Top = lblColor(I - 1).Top + lblColor(I - 1).Height
        lblColor(I).Visible = True
    Next I
End Sub

Private Sub CreateLineWidthPalette()
    Dim I As Integer
   
    LineWidths(0) = 1
    LineWidths(1) = 2
    LineWidths(2) = 4
    LineWidths(3) = 7
    LineWidths(4) = 10
   
    lblLineWidth(0).ToolTipText = "Click to select a line width"
    optLineWidth(0).ToolTipText = lblLineWidth(0).ToolTipText
   
    For I = 0 To MaxLineWidths
        If I > 0 Then
            Load optLineWidth(I)
            Load lblLineWidth(I)
            optLineWidth(I).Top = optLineWidth(I - 1).Top + optLineWidth(I - 1).Height + SmallSpace
        Else
            optLineWidth(I).Top = lblColor(MaxColors).Top + lblColor(MaxColors).Height + LargeSpace
        End If
        optLineWidth(I).Left = Margin
        optLineWidth(I).Visible = True
       
        lblLineWidth(I).Left = Margin
        lblLineWidth(I).Height = LineWidths(I)
        lblLineWidth(I).Width = lblColor(0).Width
        lblLineWidth(I).Top = optLineWidth(I).Top + ((optLineWidth(I).Height - LineWidths(I)) / 2)
        lblLineWidth(I).Visible = True
    Next I
End Sub

Private Sub lblColor_Click(Index As Integer)
    Dim I As Integer
    picCanvas.ForeColor = Colors(Index)
    For I = 0 To MaxColors
        lblColor(I).BorderStyle = 0
    Next I
    lblColor(Index).BorderStyle = 1
End Sub
Private Sub lblLineWidth_Click(Index As Integer)
    picCanvas.DrawWidth = LineWidths(Index)
    optLineWidth(Index) = True
End Sub

Private Sub optLineWidth_Click(Index As Integer)
    picCanvas.DrawWidth = LineWidths(Index)
End Sub

Private Sub picCanvas_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line (X, Y)-(X, Y)
    End If
End Sub

Private Sub picCanvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line -(X, Y)
    End If
End Sub

Private Sub cmdClear_Click()
    picCanvas.Cls
End Sub

Private Sub saddasasdasd_Click()
MsgBox "Contact Me At UltimateCode@hotmail.com", vbInformation, "Contact"
End Sub



hsa lma tnazloo ra7 yefta7 .rar
e3maloolo extract b3deen ekbeso 3al setup 3shan ynazzel Very Happy


Press Here To Download

anything I will be here .
Code.7 <3
Back to top Go down
Code.7
Level 190 Moderator
Level 190 Moderator
avatar

Posts : 266
Join date : 2010-03-16

PostSubject: Re: Paint .. Dota-Gamers   Sat Apr 17, 2010 1:54 pm

Tab3an 7adret za3bo0or be7ke ene nase5 el code 3shan el share7 3leeh bs ..
wen el share7 ele bte7ke 3no ? O.o
plz answer 3shan ana kollo katbo l7ale w etha bdk bashra7lak ay eshe msh fahmo feyyo ..
Back to top Go down
Code.7
Level 190 Moderator
Level 190 Moderator
avatar

Posts : 266
Join date : 2010-03-16

PostSubject: Re: Paint .. Dota-Gamers   Sun Apr 18, 2010 11:28 am

7da jarrabo ? O.o
Back to top Go down
DG.Z3Bo0oR
Level 200 Adminstrator
Level 200 Adminstrator
avatar

Posts : 251
Join date : 2010-03-15
Age : 23
Location : Jordan

PostSubject: Re: Paint .. Dota-Gamers   Sun Apr 18, 2010 1:26 pm

ana jarabtooo ty bs golle keef saweeet setup lal program ?????? :S
Back to top Go down
Code.7
Level 190 Moderator
Level 190 Moderator
avatar

Posts : 266
Join date : 2010-03-16

PostSubject: Re: Paint .. Dota-Gamers   Mon Apr 19, 2010 6:54 am

tab golle awl eshe lesh golet eny nas5o ?
enta betgool fe eshe bel code mbayen ene nase5 el code , bs , weno ?
Back to top Go down
DG.FeaR~LeSs
Level 198 Head Site Designer
Level 198 Head Site Designer
avatar

Posts : 285
Join date : 2010-03-14

PostSubject: Re: Paint .. Dota-Gamers   Mon Apr 19, 2010 7:59 am

Good job, i cant dl now but i will see it soon Smile
Back to top Go down
http://dota-gamers.yoo7.com
Sponsored content




PostSubject: Re: Paint .. Dota-Gamers   

Back to top Go down
 
Paint .. Dota-Gamers
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» [NEWS] Marc don't paint over the white scars yet!
» My first ever speed paint (2 hrs)
» How do you paint a nice decent bright yellow. Such as would be found on a knight's heraldry?
» Paint on sale at Michaels this week!!!
» Getting Started, GW Version of paint Scheme.

Permissions in this forum:You cannot reply to topics in this forum
DotA-GaMeRs :: Programming And Designing :: Visual Basic Programming-
Jump to: