[µo°Ý] WebBrowser ¦Û°Ê·s¼W°ÝÃD

mark15jill

°ÝÃD»¡©ú¡G
­Y»Ý·s¼W ¤¸¥óªº¸Ü ¦³¤U¦C¨âºØ«¬ºA
    Dim mycombobox As MSForms.ComboBox
    Dim myweb As New WebBrowser
¥i¬O mycombobox ¥i¥H·s¼W¡Amyweb«o·|¥X²{Ãþ§O¿ù»~
¤£¾å±o°ÝÃD¥X¦b­þ£¾£¾"

·Q­n¦b¤T­Ó frame ¤º ·s¼W...webbrowser...
¤j¤p©M¦ì¸m³£©MFrame¬Û¦P

¤U¸ü (13.51 KB)

2012-11-13 15:24

ºô­¶.rar (32.94 KB)

¤U¸ü¦¸¼Æ: 3

2012-11-13 15:22

µ{¦¡¤º Webbrowser³¡¥÷¤w§R°£... ¦]·|¥X²{¿ù»~£¾£¾

1. Private Sub UserForm_Initialize()
   
2.   
   
3.    
   
4.     Dim myFrame1 As MSForms.frame
   
5.     Dim mylabel As MSForms.Label
   
6.     Dim mycombobox As MSForms.ComboBox
   
7.     Dim myweb As New WebBrowser
   
8.    
   
9.     With UserForm1
   
10.         .Width = 1340.25
    
11.         .Height = 750
    
12.         .StartUpPosition = 2
    
13.             '°ÊºA·s¼WFrame±±¥ó
    
14. 
    
15.             '³]¸m¸ÓFrameªº¦WºÙ¡B°ª«×¡B¼e«×¡B¦ì¸mµ¥
    
16.             For sJ = 1 To (.Width - 40) Step ((.Width - 40) / 3) + 5
    
17.                     Set myFrame1 = .Controls.Add("forms.Frame.1")
    
18.                 With myFrame1
    
19.                      .Left = 10 + sJ
    
20.                      .Top = 90
    
21.                      .Width = (UserForm1.Width - 40) / 3
    
22.                      .Height = (UserForm1.Height - .Top - 30)
    
23.                     ' .Caption = .Name
    
24.                 End With
    
25.    
    
26.                  
    
27.                 Set mylabel = .Controls.Add("forms.label.1")
    
28.                 With mylabel
    
29.                     .Left = 10 + sJ
    
30.                     .Top = 10
    
31.                     .Width = (UserForm1.Width - 40) / 3
    
32.                     .BackColor = &HFCFCC0
    
33.                     .Font.Size = 14
    
34.                     .Height = .Font.Size + 1
    
35.                 End With
    
36.             
    
37.                 Set mycombobox = .Controls.Add("forms.combobox.1")
    
38.                 With mycombobox
    
39.                     .Left = 10 + sJ
    
40.                     .Top = 30
    
41.                     .Width = (UserForm1.Width - 40) / 3
    
42.                     .Height = 20
    
43.                     .BackColor = &HFCFCC0
    
44.                     .Font.Size = 12
    
45.                 End With
    
46.             
    
47.             Next
    
48.             
    
49.                     
    
50.                     
    
51.     '°Ï¬q3
    
52.        Dim ct As Control
    
53.         
    
54.         For uw = 1 To 3
    
55.             Select Case uw
    
56.             
    
57.                 Case 1
    
58.                     With .Controls("frame" & uw)
    
59.                         .Caption = .Name
    
60.                     End With
    
61.                     
    
62.                     With .Controls("label" & uw)
    
63.                         .Caption = .Name
    
64.                          .TextAlign = 2
    
65.                     End With
    
66.                     With .Controls("combobox" & uw)
    
67.                         .Text = .Name
    
68.                          .TextAlign = 2
    
69.                     End With
    
70. 
    
71.                 Case 2
    
72.                     With .Controls("frame" & uw)
    
73.                         .Caption = .Name
    
74. 
    
75.                     End With
    
76.                     With .Controls("label" & uw)
    
77.                         .Caption = .Name
    
78.                          .TextAlign = 2
    
79.                     End With
    
80.                     With .Controls("combobox" & uw)
    
81.                         .Text = .Name
    
82.                          .TextAlign = 2
    
83.                     End With
    
84.                     
    
85.                
    
86.                 Case 3
    
87.                     With .Controls("frame" & uw)
    
88.                         .Caption = .Name
    
89. 
    
90.                     End With
    
91.                     With .Controls("label" & uw)
    
92.                         .Caption = .Name
    
93.                          .TextAlign = 2
    
94.                     End With
    
95.                     With .Controls("combobox" & uw)
    
96.                         .Text = .Name
    
97.                          .TextAlign = 2
    
98.                     End With
    
99.                     
    
100.             End Select
     
101.             
     
102.             
     
103. 
     
104.         Next
     
105. 
     
106. 
     
107.     End With
     
108. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# mark15jill
ªí³æ¤¤·s¼W WebBrowser [Microsoft ºô­¶ÂsÄý¾¹±±¨î¶µ]

1. Set myweb = .Controls.Add("Shell.Explorer.2")

½Æ»s¥N½X

mark15jill

¦^´_  mark15jill
ªí³æ¤¤·s¼W WebBrowser [Microsoft ºô­¶ÂsÄý¾¹±±¨î¶µ]
GBKEE µoªí©ó 2012-11-13 15:59

    ½Ð°Ýª©¤j
³o­Ó«ç©M §Ú¦Cªº¨º¨âºØ¤£¦P..
¬O©I¥s À³¥Îµ{¦¡ªºÃö«Y¶Ü?

GBKEE

¦^´_ 3# mark15jill
±±¨î¶µ©ÒÄݪºÀ³¥Îµ{¦¡¤£¤@¼Ë
Set myFrame1 = Controls.Add("forms.Frame.1") ³o¬Oªí³æªº±±¨î¶µ

mark15jill

¦^´_  mark15jill
±±¨î¶µ©ÒÄݪºÀ³¥Îµ{¦¡¤£¤@¼Ë
Set myFrame1 = Controls.Add("forms.Frame.1") ³o¬Oªí³æ ...
GBKEE µoªí©ó 2012-11-13 16:26

   
    ª©¤j ÁÂÁ ³o¼Ë§Ú¤F¸Ñ¤F~~ ¦A¦¸·PÁÂ

¸ß°Ý¥t¤@­Ó°ÝÃD

¥H³o¬qµ{¦¡½X¨Ó»¡
                With myFrame1
                     .Left = 10 + sJ
                     .Top = 90
                     .Width = (UserForm1.Width - 40) / 3
                     .Height = (UserForm1.Height - .Top - 30)
                    ' .Caption = .Name
                End With

¥i¬O ­YÅܦ¨
                 Set myweb = .Controls.Add("Shell.Explorer.2")
                With myweb
'                     .Left = 10 + sJ
'                     .Top = 90
                     .Width = (UserForm1.Width - 40) / 3
                     .Height = (UserForm1.Height - .Top - 30)
                    ' .Caption = .Name
                End With

¦oÅã¥Ü¥X¨Óªº ¼e ©M °ª ³£¤£·|µ¥©ó myFrameªº¼e©M°ª.. ³o¬O¬°¤°»ò?

¦Ó¥B µ{¦¡½X§ï¦¨

                    Set myweb = .Controls.Add("Shell.Explorer.2")
                    With myweb
'                        .Top = 5
'                        .Left = 5
                        .Height = UserForm1.Controls("frame1").Height
                        .Width = UserForm1.Controls("frame1").Width
                    End With
                End With
§e²{¥X¨Óªº®ÄªG¤´µM¬O ¤£µ¥©ó Frame1 ªº¼e©M°ª

½Ð°Ý­n«ç³]©w¤~¯à¡H

¤U¸ü (84.31 KB)

2012-11-13 16:33

GBKEE

¦^´_ 5# mark15jill
§ï¦¨³o¼Ë, ¬°¦ó·|¦p¦¹©|¥¼¬ã¨s.

1. Dim myweb As Object

½Æ»s¥N½X

mark15jill

¦^´_ 6# GBKEE


    ¦]¤p§Ì·Qªk«Ü³æ¯Â

¬JµM Frame  ªº
                      .Width = (UserForm1.Width - 40) / 3
                     .Height = (UserForm1.Height - .Top - 30)

¨º ¦pªG³]©w myweb ªº
                        .Height = UserForm1.Controls("frame1").Height
                        .Width = UserForm1.Controls("frame1").Width

¥¿±`¨Ó»¡ À³¸Ó  myweb.height ·|µ¥©ó Frame.height  (¦pªG¨Ì ³]©wªº¸Ü)

¦ý¬O «o·|¥X²{¦p¦¹¤jªº®t²§¡AÅý§Ú¦³ÂI¦n©_­ì¦]¡C