ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Userform³Ì¤j¤Æ(¥B¤º®e¤ñ¨Ò¦Û°Ê©ñ¤j?)

[µo°Ý] Userform³Ì¤j¤Æ(¥B¤º®e¤ñ¨Ò¦Û°Ê©ñ¤j?)

¥»©«³Ì«á¥Ñ PKKO ©ó 2015-5-13 17:47 ½s¿è

¤p§Ì¤wª¾Userform ³Ì¤j¤Æªºµ{¦¡½X,¤]ª¾¹D¨Ì¤ñ²v©ñ¤jªºµ{¦¡½X,¦ý¤£ª¾¹D¦p¦ó¦Û°Ê¨ú±o¨âªÌ¤§¶¡ªº¤ñ²v,¨Ó¦Û°Ê³]©w©ñ¤jªº­¿¼Æ...
¦³¤Hª¾¹Dzoomªº¤ñ²v­n¦p¦ó¨D±o¶Ü?

¤ñ²vªºµ{¦¡½X
UserForm1.Zoom = 125

³Ì¤j¤Æªºµ{¦¡½X
  1. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  2. Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
  3. Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
  4. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  5. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  6. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  7. Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  8. Private Const WS_MAXIMIZEBOX = &H10000
  9. Private Const WS_MINIMIZEBOX = &H20000
  10. Private Const GWL_STYLE = (-16)
  11. Private Const SW_SHOWMAXIMIZED = 3
  12. Private Const SW_SHOWNORMAL = 1
  13. Private Const SW_SHOWMINIMIZED = 2
  14. Private Const WS_THICKFRAME = &H40000
  15. Const SM_CXFULLSCREEN = 16
  16. Const SM_CYFULLSCREEN = 17
  17. Const HWND_TOPMOST = -1
  18. Const SWP_SHOWWINDOW = &H40
  19. Dim hWndForm As Long
  20. Dim IStyle As Long

  21. Private Sub UserForm_Initialize()
  22.   hWndForm = FindWindow("ThunderDFrame", Me.Caption)
  23.   IStyle = GetWindowLong(hWndForm, GWL_STYLE)
  24.   IStyle = IStyle Or WS_THICKFRAME
  25.   IStyle = IStyle Or WS_MINIMIZEBOX
  26.   IStyle = IStyle Or WS_MAXIMIZEBOX
  27.   SetWindowLong hWndForm, GWL_STYLE, IStyle
  28. End Sub

  29. Public Sub myShowMax()
  30.    
  31.     SetActiveWindow hWndForm
  32.     ShowWindow hWndForm, SW_SHOWMAXIMIZED
  33. End Sub
½Æ»s¥N½X
PKKO

¦^´_ 2# bobomi

¤j¤j¦n«Â~

·PÁ¦^´_,¸g´ú¸Õ«á21"¿Ã¹õ¥i¥¿±`¨Ï¥Î

¤Ï­Ë¬Oµ§¹qªº13"¿Ã¹õ·|Åܦ¨¤Ó¤j,¦³¿ìªk¨Ì·Ó¤ñ¨Ò¦Û°Ê©ñ¤j©Î¬OÁY¤p¶Ü?
PKKO

TOP

¦^´_ 8# bobomi


    ·PÁ¤j¤jªº¥Î¤ß! §Ú´ú¸Õ§¹¦A¸ò±z³ø§i !
PKKO

TOP

¥»©«³Ì«á¥Ñ PKKO ©ó 2015-5-19 19:01 ½s¿è

¦^´_ 8# bobomi

javascript:;
    ·PÁ¤j¤j,§Ú´ú¸Õ¹L¥i¥H¦Û°Ê©ñ¤jªºuserform ¶W»Åªº~¸òºô­¶¤@¼Ë¦Û¥Ñ©b©ñ,¦ý....©ñ¤j®ÄªG¤£¨Î,¥H±zªºuserfrom¨Ó©ñ¤j¤§«á·|µo²{¤ñ¨Ò©Ç©Çªº
§Ú·Q­ì¦]À³¸Ó¬O¸ò©p»¡ªº¤@¼Ë,zoom¥u¯à¦P®É©ñ¤j,µLªk¥u½Õ¾ã¥ô¦ó¤@Ã䪺Ãö«Y

¦Ü©ó13"¹q¸£ªº³¡¤À,§Ú´ú¸Õ¹L©p³Ì«áªºµ{¦¡½X,¸ò¤§«eªº¤@¼Ë©O!·|¶W¥XÃä¬É(¥»¨­­ì¥»ªº¤j¤p¬O¤£·|¶W¹Lªº)

ªþ¥ó¬O§ÚªºUSERFORMªº¤j¤p!

Documents.rar (2.29 KB)

USERFORM2

PKKO

TOP

¦^´_ 11# GBKEE


    ¶Wª©¤j¤j,§Ú©ñ¤Jªí³æ¤º¨Ï¥Î,¨Ã¨ú¥NUSERFORMªº©Ò¦³µ{¦¡½X,¦ýµL½×«ç»òÂI·Æ¹«³£µLªk¤Ï¬M?
PKKO

TOP

¦^´_ 14# GBKEE


    ·PÁÂ,¤w¤F¸Ñ¨Ï¥Î¤è¦¡!
PKKO

TOP

¦^´_ 16# bobomi


    ¤j¤j,¸Ì­±¨S¦³userform = =
PKKO

TOP

¦^´_ 8# bobomi


    ¤j¤j±z¦n,
«ö·Ó¤j¤j±zªº°µªk,¥i¥H¤â°Ê©Ô¤j¤ñ²v(¤j¤j±z¤w¸g§¹¦¨¤F!),¦ý¥i§_¥[¤W¤@­Ó¦Û°ÊÀx¦sUserform³Ì«áªº½Õ¾ãª¬ªp,¦pªG¨S¦³°O¾Ð,¨Ï¥ÎªÌ¨C¦¸³£­n½Õ¾ã¹ê¦b¨¯­W(¨Ò¦p°O¾Ð¦bFormSize³o­Ósheet¦WºÙ¤º),
¤U¦¸¥´¶}©l·|¦Û°Ê§ì¨ú¤W¦¸½Õ¾ãªº¤j¤p!
PKKO

TOP

¦^´_ 10# GBKEE


    ¶Wª©¤j¤j±z¦n,±zªº³o­Ó¤è¦¡¥i¥H«O«ùªí³æ¥H¤Î¤º®e¤ñ²vªº§¹¾ã©Ê,«D±`¹ê¥Î,¤]¥iÅý¤p§Ì¤F¸Ñ¨ì©³¬O¦p¦ó©ñ¤j¤ÎÁY¤pªº
¦ý¦³¨S¦³¿ìªk¥i¥Hª½±µ©ñ¤j
¦Ó¥B©ñ¤jªº¤ñ²v¬O¥H¼e©Î¬O°ª,¥ô¤@Ã䪺·¥­­¬°·¥­­
ÁקK°ª¤w¸g¨ì·¥­­¤F,¥i¬O¼eÁÙ¨S,¾É­Pª½±µ©ñ¨ì³Ì¤j¤Æ¤§«á,°ª·|¶W¹L¿Ã¹õ¥iµøªº¦ì¸m
PKKO

TOP

¦^´_ 20# bobomi


    ¤ñ¨Ò¤WÁÙ¬O·|¦³ÂI©_©Ç,©ñ¨ì³Ì¤j®É,¥kÃä·|¦³¦h¾lªºªÅ¶¡,¤£¹L¨SÃö«Y,¤w¸g«Ü·PÁ©pÅo!
PKKO

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD