نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: حذف حاشیه های یوزر فرم

  1. #1


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

    حذف حاشیه های یوزر فرم

    سلام
    در یوزر فرم ایا این امکان وجود داره که حاشیه (ابی رنگ) اطراف فرم رو برداشت و نشون داده نشه؟
    ممنون
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

    جواب رو یکی از دوستان برامفرستادن که جواب داد البته من خودم زیاد سردر نیوردم
    اگه کسی از اساتید بتونن توضیحی در مورد این کدها بدن ممنون می شم
    Option Explicit
    #If VBA7 And Win64 Then
    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    #Else
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    #End If
    Const GWL_STYLE = -16
    Const WS_CAPTION = &HC00000
    'UserForm position
    Dim FormX As Double, FormY As Double

    Private Sub UserForm_Initialize()
    Dim lngWindow As Long, lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
    End Sub
    Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' Starting position when button is pressed
    If Button = 1 Then
    FormX = X
    FormY = Y
    End If
    End Sub
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' Move the form if the left button is pressed
    If Button = 1 Then
    Me.Left = Me.Left + (X - FormX)
    Me.Top = Me.Top + (Y - FormY)
    End If
    End Sub
    Private Sub OKButton_Click()
    Unload Me
    End Sub

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2024/01/18
    تاریخ عضویت
    October 2014
    نوشته ها
    67
    امتیاز
    65
    سپاس
    230
    سپاس شده
    51 در 20 پست
    سطح اکسل
    54.00 %

    فکر نکنم توضیحش به این راحتی ها باشه

    اگه کارت راه افتاده به نظرم بی خیال توضیح کدها بشین

  6. #4


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

    سلام
    فیل پیوست رو از کد دوستان کمک گرفتم و توی فرم پیوست زدم که جواب داد ولی مشکل بزرگ اینه که این کد فقط برای سیستم عامل 32 بیتی کار می کنه چطوری کد رو باید تغییر داد که هم وی 32 و هم 64 بیتی جواب بده
    ممنون
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip Book1.zip اطلاعات (15.1 کیلو بایت, 43 نمایش)

  7. #5


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    March 2017
    محل سکونت
    قزوین
    نوشته ها
    556
    امتیاز
    520
    سپاس
    182
    سپاس شده
    451 در 217 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط ahmada1983 نمایش پست ها
    سلام
    فیل پیوست رو از کد دوستان کمک گرفتم و توی فرم پیوست زدم که جواب داد ولی مشکل بزرگ اینه که این کد فقط برای سیستم عامل 32 بیتی کار می کنه چطوری کد رو باید تغییر داد که هم وی 32 و هم 64 بیتی جواب بده
    ممنون
    سلام
    فایل پیوست را ملاحضا فرمایید
    فايل هاي پيوست شده فايل هاي پيوست شده

    در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست

  8. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 15
    آخرين نوشته: 2019/05/27, 15:59
  2. گذاشتن کلید میانبر برای کلیدهای یوزرفرم
    توسط shamsololama در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 8
    آخرين نوشته: 2017/09/06, 20:15
  3. خروجی گرفتن از یوزر فرم
    توسط amirghadiri در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 0
    آخرين نوشته: 2015/05/04, 01:53
  4. نماش عکس متحرک در یوزر فرم
    توسط Haji hadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/10/06, 18:28
  5. یوزرفرم
    توسط payam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2013/03/27, 17:24

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

حذف حاشیه در اکسل

حذف حاشیه یوزرفرم اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است