| |
|
| |||||||
 |
| | Seçenekler |
|
#1
24-12-2007, 12:42
| ||||||
| ||||||
Fare ile çizim yapmakFare ile çizim yapmak Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim mx, my mx = X my = Y PSet (X, Y) 'başlangıç koordinatını belirlek için nota koy End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim mx, my 'sağ tuşa basılı ise çenber ciz If Button = vbRightButton Then Circle (mx, my), Abs(mx - X) 'sol tuşa basılı ise dikdört ciz If Button = vbLeftButton Then Line (mx, my)-(X, Y), , B End Sub  |
|
| Arama Etiketleri: cizim, yapmak |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| Son Yaptıgım Çizim Tasarım | baris6007 | Web - Grafik Tasarım - 3D | 8 | 05-08-2008 08:39 |
| ücretsiz tasarım (tema, çizim, layout, skin, web tasarımı indir) | banias | Tema - Template | 9 | 31-01-2008 03:52 |
| Çizim Programı v2.0 | B737 | Visual Basic & Action script | 0 | 24-01-2008 02:41 |
| Resimlerinizi Kara Kalem Çizim gibi yapma | kadınca | Photoshop | 0 | 24-12-2007 11:51 |
| Hem fare, hem kumanda | LeaveMeALoNe | Donanım Haberleri | 0 | 19-11-2007 07:29 |
 |  |
