جابجا نشدن یوزر فرم با موس

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • reza_gh_tak

    • 2019/06/21
    • 149
    • 24.00
    #1

    [حل شده] جابجا نشدن یوزر فرم با موس

    با چه کدی میشه مانع از جابجایی یوزر فرم در صفحه شد یعنی نشه با موس یوزر فرم رو بگیریم و جابجا کنیم
    ممنون میشم یکی جوا بده خیلی واجب ممنون
    برچسب ها: هیچ‌کدام
    • majid_mx4

      • 2012/06/25
      • 699
      #2
      با سلام

      میتوانید از دستورات زیر استفاده نمایید.
      کد:
      Option Explicit

Private Type Position
Left As Single
Top As Single
End Type


Private Sub UserForm_Layout()
Static Pos As Position

Dim Mvd As Boolean

'If the form is just being initialized, store the position
If Pos.Left = 0 Or Pos.Top = 0 Then
Pos.Left = Me.Left
Pos.Top = Me.Top
Exit Sub
End If

'Check to see if the form has been moved
Mvd = False
If Me.Left <> Pos.Left Then
Me.Left = Pos.Left
Mvd = True
End If
If Me.Top <> Pos.Top Then
Me.Top = Pos.Top
Mvd = True
End If

If Mvd Then
MsgBox "Please don't move me !", vbCritical
End If
End Sub
      موفق باشید میر

        کامنت

        قبلی template بعدی
        چند لحظه..