çalışma esnasında boyutlandırma
Tarih
04/06/2012 12:13
Konu Sahibi
accessman
Yorumlar
0
Okunma
893
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20

Kod:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_SIZE = &HF000&

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Declare Function ReleaseCapture Lib "user32" () As Long
Dim Hareket As Byte

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
  SendMessage Command1.hwnd, WM_SYSCOMMAND, SC_SIZE + Hareket, 0
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Const parca = 100

  If ((X >= Command1.Width - parca) And (Y >= Command1.Height - parca)) Then
    Hareket = 8
  ElseIf ((X >= Command1.Width - parca) And (Y > parca)) Then
    Hareket = 2
  ElseIf ((X >= Command1.Width - parca) And (Y <= parca)) Then
    Hareket = 5
  ElseIf ((X > parca) And (Y >= Command1.Height - parca)) Then
    Hareket = 6
  ElseIf ((X <= parca) And (Y >= Command1.Height - parca)) Then
    Hareket = 7
  ElseIf ((X > parca) And (Y <= parca)) Then
    Hareket = 3
  ElseIf ((X <= parca) And (Y > parca)) Then
    Hareket = 1
  ElseIf ((X <= parca) And (Y <= parca)) Then
    Hareket = 4
  Else
    Hareket = 9
  End If

  Select Case Hareket
    Case 4, 8: Command1.MousePointer = vbSizeNWSE 'kuzey batı - güney doğu
    Case 7, 5: Command1.MousePointer = vbSizeNESW 'kuzey doğu - güney batı
    Case 3, 6: Command1.MousePointer = vbSizeNS 'kuzey - güney
    Case 1, 2: Command1.MousePointer = vbSizeWE 'doğu - batı
    Case Else: Command1.MousePointer = vbSizeAll
  End Select


End Sub

@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  çalışma esnasında nesne taşıma accessman 0 1.084 04/06/2012, 12:09 accessman


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya