返回列表 上一主題 發帖

[發問] WebBrowser 自動新增問題

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-13 15:26 | 只看該作者

[發問] WebBrowser 自動新增問題

問題說明：
若需新增 元件的話 有下列兩種型態
    Dim mycombobox As MSForms.ComboBox
    Dim myweb As New WebBrowser
可是 mycombobox 可以新增，myweb卻會出現類別錯誤
不曉得問題出在哪ˇˇ"

想要在三個 frame 內 新增...webbrowser...
大小和位置都和Frame相同


未命名.jpg

網頁.rar (32.94 KB)

程式內 Webbrowser部份已刪除... 因會出現錯誤ˇˇ
  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.             '動態新增Frame控件

  15.             '設置該Frame的名稱、高度、寬度、位置等
  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.     '區段3
  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

  71.                 Case 2
  72.                     With .Controls("frame" & uw)
  73.                         .Caption = .Name

  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

  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.             

  104.         Next


  107.     End With
  108. End Sub
複製代碼
收藏 分享

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-11-13 15:59 | 只看該作者
回復 1# mark15jill
表單中新增 WebBrowser [Microsoft 網頁瀏覽器控制項]
  1. Set myweb = .Controls.Add("Shell.Explorer.2")
複製代碼

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 2012-11-13 16:20 | 只看該作者
回復  mark15jill
表單中新增 WebBrowser [Microsoft 網頁瀏覽器控制項]
GBKEE 發表於 2012-11-13 15:59



    請問版大
這個怎和 我列的那兩種不同..
是呼叫 應用程式的關係嗎?

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-11-13 16:26 | 只看該作者
回復 3# mark15jill
控制項所屬的應用程式不一樣
Set myFrame1 = Controls.Add("forms.Frame.1") 這是表單的控制項

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2012-11-13 16:33 | 只看該作者
回復  mark15jill
控制項所屬的應用程式不一樣
Set myFrame1 = Controls.Add("forms.Frame.1") 這是表單 ...
GBKEE 發表於 2012-11-13 16:26



   
    版大 謝謝 這樣我了解了~~ 再次感謝

詢問另一個問題

以這段程式碼來說
                With myFrame1
                     .Left = 10 + sJ
                     .Top = 90
                     .Width = (UserForm1.Width - 40) / 3
                     .Height = (UserForm1.Height - .Top - 30)
                    ' .Caption = .Name
                End With

可是 若變成
                 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

她顯示出來的 寬 和 高 都不會等於 myFrame的寬和高.. 這是為什麼?

而且 程式碼改成

                    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
呈現出來的效果仍然是 不等於 Frame1 的寬和高

請問要怎設定才能？



  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-11-13 17:13 | 只看該作者
回復 5# mark15jill
改成這樣, 為何會如此尚未研究.
  1. Dim myweb As Object
複製代碼

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
7#
發表於 2012-11-13 17:17 | 只看該作者
回復 6# GBKEE


    因小弟想法很單純

既然 Frame  的
                      .Width = (UserForm1.Width - 40) / 3
                     .Height = (UserForm1.Height - .Top - 30)

那 如果設定 myweb 的
                        .Height = UserForm1.Controls("frame1").Height
                        .Width = UserForm1.Controls("frame1").Width

正常來說 應該  myweb.height 會等於 Frame.height  (如果依 設定的話)

但是 卻會出現如此大的差異，讓我有點好奇原因。

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題