Paint software program in visible fundamental is straightforward paint program which is able to drawing easy figures and coloring them. It has some options like spray shade , pencil , image draw choices .
Query :
Design and Develop options of Paint Brush software.
1 |
Dim sx, sy As Single <br/> Dim px As Integer <br/> Dim py As Integer <br/> Dim flag As Integer <br/> Personal Sub spray(X As Single, Y As Single, col As ColorConstants) <br/> Dim i As Integer <br/> Dim tempx As Integer <br/> Dim tempy As Integer <br/> For i = 1 To 10 Step 1 <br/> tempx = Rnd * 50 <br/> tempy = Rnd * 50 <br/> fradraw.PSet (X + tempx, Y + tempy), col <br/> Subsequent i <br/> Finish Sub <br/> Personal Sub Form_Activate() <br/> sx = 0 <br/> sy = 0 <br/> Finish Sub <br/> Personal Sub fradraw_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) <br/> If Button <> Zero Then <br/> sx = X <br/> sy = Y <br/> Finish If <br/> Finish Sub <br/> Personal Sub fradraw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) <br/> Dim col As ColorConstants <br/> If Button = 1 Then <br/> col = piccur(1).BackColor <br/> ElseIf Button = 2 Then <br/> col = piccur(0).BackColor <br/> Finish If <br/> If Button <> Zero Then <br/> Choose Case flag <br/> Case 1 <br/> Name spray(X, Y, col) <br/> Case 2 <br/> Case 3 <br/> fradraw.Line (sx, sy)-(X, Y), col <br/> sx = X <br/> sy = Y <br/> Case 4 <br/> fradraw.Line (sx, sy)-(px, py), vbWhite <br/> fradraw.Line (sx, sy)-(X, Y), col <br/> px = X <br/> py = Y <br/> Case 5 <br/> fradraw.Line (sx, sy)-(px, sy), vbWhite <br/> fradraw.Line (px, sy)-(px, py), vbWhite <br/> fradraw.Line (px, py)-(sx, py), vbWhite <br/> fradraw.Line (sx, py)-(sx, sy), vbWhite <br/> fradraw.Line (sx, sy)-(X, sy), col <br/> fradraw.Line (X, sy)-(X, Y), col <br/> fradraw.Line (X, Y)-(sx, Y), col <br/> fradraw.Line (sx, Y)-(sx, sy), col <br/> px = X <br/> py = Y <br/> Case 6 <br/> Case 7 <br/> fradraw.Line (sx, sy)-(px, sy), vbWhite <br/> fradraw.Line (px, sy)-(px, py), vbWhite <br/> fradraw.Line (px, py)-(sx, py), vbWhite <br/> fradraw.Line (sx, py)-(sx, sy), vbWhite <br/> fradraw.Line (sx, sy)-(X, sy), col <br/> fradraw.Line (X, sy)-(X, Y), col <br/> fradraw.Line (X, Y)-(sx, Y), col <br/> fradraw.Line (sx, Y)-(sx, sy), col <br/> px = X <br/> py = Y <br/> Case 8 <br/> fradraw.Circle (Abs((sx + px) / 2), Abs((sy + py) / 2)), Abs((sx - px) / 2), vbWhite <br/> fradraw.Circle (Abs((sx + X) / 2), Abs((sy + Y) / 2)), Abs((sx - X) / 2), col <br/> px = X <br/> py = Y <br/> Finish Choose <br/> Finish If <br/> Finish Sub <br/> Personal Sub fradraw_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) <br/> Dim a As String <br/> Choose Case flag <br/> Case 7 <br/> a = InputBox("Enter a string", "String Enter") <br/> fradraw.ScaleMode = vbPixels <br/> fradraw.CurrentX = sx + 10 <br/> fradraw.CurrentY = sy + 20 <br/> fradraw.Print a <br/> fradraw.Line (sx, sy)-(px, sy), vbWhite <br/> fradraw.Line (px, sy)-(px, py), vbWhite <br/> fradraw.Line (px, py)-(sx, py), vbWhite <br/> fradraw.Line (sx, py)-(sx, sy), vbWhite <br/> Finish Choose <br/> Finish Sub <br/> Personal Sub mnuclrimg_Click() <br/> fradraw.Cls <br/> Finish Sub <br/> Personal Sub mnuexit_Click() <br/> Finish <br/> Finish Sub <br/> Personal Sub piccol_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) <br/> If Button = 2 Then <br/> piccur(0).BackColor = piccol(Index).BackColor <br/> Finish If <br/> If Button = 1 Then <br/> piccur(1).BackColor = piccol(Index).BackColor <br/> Finish If <br/> Finish Sub <br/> Personal Sub pictool_Click(Index As Integer) <br/> Choose Case Index <br/> Case 0 <br/> fradraw.MouseIcon = LoadPicture("NORMAL01.CUR") <br/> flag = 0 <br/> Case 1 <br/> fradraw.MouseIcon = LoadPicture("SELECT.CUR") <br/> flag = 1 <br/> Case 2 <br/> fradraw.MouseIcon = LoadPicture("NORMAL01.CUR") <br/> flag = 0 <br/> Case 3 <br/> fradraw.MouseIcon = LoadPicture("PENCIL.CUR") <br/> flag = 3 <br/> Case 4 <br/> fradraw.MouseIcon = LoadPicture("CROSS02.CUR") <br/> flag = 4 <br/> Case 5 <br/> fradraw.MouseIcon = LoadPicture("CROSS02.CUR") <br/> flag = 5 <br/> Case 6 <br/> fradraw.MouseIcon = LoadPicture("NORMAL01.CUR") <br/> flag = 6 <br/> Case 7 <br/> fradraw.MouseIcon = LoadPicture("NORMAL01.CUR") <br/> flag = 7 <br/> Case 8 <br/> fradraw.MouseIcon = LoadPicture("CROSS02.CUR") <br/> flag = 8 <br/> Finish Choose <br/> Finish Sub <br/> Personal Sub pictool_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) <br/> pictool(Index).BorderStyle = 1 <br/> Finish Sub <br/> Personal Sub pictool_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) <br/> pictool(Index).BorderStyle = 0 <br/> Finish Sub |
Supply projectgeek.com