- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 4# play9091
¤£¦n·N«ä ¨S2010ª© ¤£ª¾¦p¦ó¸Ñµª ,קïµ{¦¡½X¸Õ¸Õ¬Ý- Option Explicit
- '***** §R±¼³o¨Ç
- Private Type TGUID
- Data1 As Long
- Data2 As Integer
- Data3 As Integer
- Data4(0 To 7) As Byte
- End Type
- Private Declare Function OleLoadPicturePath Lib "oleaut32" ( _
- ByVal szURLorPath As Long, ByVal punkCaller As Long, _
- ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, _
- ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
- '***** §R±¼¨ì²z
- Dim ºô¸ô¹Ï¤ù As String, ¹Ï¤ù As String
- Private Sub UserForm_Initialize()
- Dim xLen As Integer, E As Worksheet
- 'ºô¸ô¹Ï¤ù = "http://t1.gstatic.com/images?q=tbn:ANd9GcTW_IhT0LcFWjucAjA_OMOpg4igw4IA2hyKfoJMiMSzyF-fRUERNg"
- '³oºô¸ô¹Ï¤ù¥i¥t¦æ«ü©w PC¤Wªº¹ÏÀÉ
- 'ºô¸ô¹Ï¤ù = "D:\EX1.GIF" '§A¶·«ü©w¹ÏÀÉ
- ºô¸ô¹Ï¤ù = "" '©Î¬O¤£«ü©w¹ÏÀÉ
- ¹Ï¤ù = ThisWorkbook.Path & "\¹Ï¤ù.gif"
- With Application
- .Visible = False
- .WindowState = xlMaximized
- Me.Width = .Width - (.Width * 0.06)
- Image1.Width = Me.Width - (.Width * 0.32)
- End With
- With ComboBox1
- For Each E In Sheets
- .AddItem E.Name
- xLen = IIf(xLen > Len(E.Name), xLen, Len(E.Name))
- Next
- .ListWidth = 5 * xLen
- End With
- ListBox1.MultiSelect = fmMultiSelectExtended
- ListBox2.MultiSelect = fmMultiSelectExtended
- Image1.Picture = LoadPicture(ºô¸ô¹Ï¤ù)
- End Sub
- '§R±¼³o¨ç¼Æ
- Private Function LoadPicture(ByVal strFileName As String) As IPicture
- Dim IID As TGUID
- With IID
- .Data1 = &H7BF80980
- .Data2 = &HBF32
- .Data3 = &H101A
- .Data4(0) = &H8B
- .Data4(1) = &HBB
- .Data4(2) = &H0
- .Data4(3) = &HAA
- .Data4(4) = &H0
- .Data4(5) = &H30
- .Data4(6) = &HC
- .Data4(7) = &HAB
- End With
- On Error GoTo ERR_LINE
- OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
- If LoadPicture Is Nothing Then GoTo ERR_LINE
- Exit Function
- ERR_LINE:
- MsgBox "¹Á¸Õ¥¢±Ñ!"
- End Function
- '§R±¼¨ç¼Æ¨ì³o¸Ì
½Æ»s¥N½X |
|