ToolStripProgressBar / StatusStrip erscheint nicht im Programm

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    ToolStripProgressBar / StatusStrip erscheint nicht im Programm

    Hallo,

    Ich brauche leider mal vieler Hilfe...
    Undzwar wird bei mir die StatusStrip im Programm nicht angezeigt.
    Allerdings werden mir vom Programm keine Fehler an den Kopf geschossen.

    Hier mal mein Code:

    Quellcode

    1. Public Class Form1
    2. Dim aktiverBrowser As ExtendedWebBrowser
    3. Private Sub getAktiverBrowser()
    4. For Each wb As ExtendedWebBrowser In TabControl1.SelectedTab.Controls ' Hier
    5. aktiverBrowser = wb
    6. Exit For
    7. Next
    8. End Sub
    9. Public Sub addTab(ByVal name As String, ByVal url As String)
    10. Dim tab As TabPage = New TabPage(name)
    11. Dim wb As ExtendedWebBrowser = New ExtendedWebBrowser()
    12. AddHandler wb.DocumentCompleted, AddressOf ExtendedWebBrowser_DocumentCompleted
    13. AddHandler wb.ProgressChanged, AddressOf ExtendedWebBrowser_ProgressChanged
    14. wb.Navigate(url)
    15. wb.Dock = DockStyle.Fill
    16. tab.Controls.Add(wb)
    17. TabControl1.TabPages.Add(tab)
    18. TabControl1.SelectTab(tab)
    20. End Sub
    22. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    23. TabControl1.TabPages.Clear()
    24. addTab("Google", "http://google.de")
    25. getAktiverBrowser()
    26. End Sub
    28. Private Sub addBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addBtn.Click
    29. getAktiverBrowser()
    30. addTab("Neuer Tab", "about:blank")
    31. getAktiverBrowser()
    32. End Sub
    34. Private Sub goBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles goBtn.Click
    35. getAktiverBrowser()
    36. aktiverBrowser.Navigate(urlt.Text)
    37. End Sub
    39. Private Sub refreshBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles refreshBtn.Click
    40. aktiverBrowser.Refresh()
    41. End Sub
    43. Private Sub backBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backBtn.Click
    44. aktiverBrowser.GoBack()
    45. End Sub
    47. Private Sub forwardBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles forwardBtn.Click
    48. aktiverBrowser.GoForward()
    49. End Sub
    51. Private Sub stopBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopBtn.Click
    52. aktiverBrowser.Stop()
    53. End Sub
    55. Private Sub ExtendedWebBrowser_DocumentCompleted()
    56. If Not aktiverBrowser.DocumentTitle = Nothing Then
    57. TabControl1.SelectedTab.Text = aktiverBrowser.DocumentTitle
    58. End If
    60. urlt.Text = aktiverBrowser.Url.OriginalString.ToString
    61. End Sub
    63. Private Sub ExtendedWebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
    64. Try
    65. ToolStripProgressBar1.Maximum = e.MaximumProgress
    66. ToolStripProgressBar1.Value = e.CurrentProgress
    67. Catch
    68. ToolStripProgressBar1.Value = 0
    70. End Try
    71. End Sub
    73. Private Sub urlt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles urlt.KeyDown
    74. If e.KeyCode = Keys.Enter Then
    75. goBtn.PerformClick()
    76. End If
    77. End Sub
    79. End Class


    Dazu habe ich noch dieses Modul eingebunden:
    social.msdn.microsoft.com/Foru…webbrowser?forum=winforms
    (Ich denke der Code wäre zu lang für den Thread und hat damit nichts zu tun xD)

    Nicσlas schrieb:

    nicht angezeigt
    Kannst Du bitte mal die Datei Form1.Designer.vb posten?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany

    Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
    26. Me.TabControl1 = New System.Windows.Forms.TabControl()
    27. Me.TabPage1 = New System.Windows.Forms.TabPage()
    28. Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
    29. Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
    30. Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
    31. Me.TabPage2 = New System.Windows.Forms.TabPage()
    32. Me.Panel1 = New System.Windows.Forms.Panel()
    33. Me.stopBtn = New System.Windows.Forms.PictureBox()
    34. Me.refreshBtn = New System.Windows.Forms.PictureBox()
    35. Me.addBtn = New System.Windows.Forms.Button()
    36. Me.closeBtn = New System.Windows.Forms.Button()
    37. Me.goBtn = New System.Windows.Forms.Button()
    38. Me.urlt = New System.Windows.Forms.ComboBox()
    39. Me.forwardBtn = New System.Windows.Forms.Button()
    40. Me.backBtn = New System.Windows.Forms.Button()
    41. Me.TabControl1.SuspendLayout()
    42. Me.TabPage1.SuspendLayout()
    43. Me.StatusStrip1.SuspendLayout()
    44. Me.Panel1.SuspendLayout()
    45. CType(Me.stopBtn, System.ComponentModel.ISupportInitialize).BeginInit()
    46. CType(Me.refreshBtn, System.ComponentModel.ISupportInitialize).BeginInit()
    47. Me.SuspendLayout()
    48. '
    49. 'TabControl1
    50. '
    51. Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    52. Or System.Windows.Forms.AnchorStyles.Left) _
    53. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    54. Me.TabControl1.Controls.Add(Me.TabPage1)
    55. Me.TabControl1.Controls.Add(Me.TabPage2)
    56. Me.TabControl1.Location = New System.Drawing.Point(-8, 48)
    57. Me.TabControl1.Name = "TabControl1"
    58. Me.TabControl1.SelectedIndex = 0
    59. Me.TabControl1.Size = New System.Drawing.Size(1365, 665)
    60. Me.TabControl1.TabIndex = 0
    61. '
    62. 'TabPage1
    63. '
    64. Me.TabPage1.Controls.Add(Me.StatusStrip1)
    65. Me.TabPage1.Location = New System.Drawing.Point(4, 22)
    66. Me.TabPage1.Name = "TabPage1"
    67. Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
    68. Me.TabPage1.Size = New System.Drawing.Size(1357, 639)
    69. Me.TabPage1.TabIndex = 0
    70. Me.TabPage1.Text = "TabPage1"
    71. Me.TabPage1.UseVisualStyleBackColor = True
    72. '
    73. 'StatusStrip1
    74. '
    75. Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripProgressBar1})
    76. Me.StatusStrip1.Location = New System.Drawing.Point(3, 614)
    77. Me.StatusStrip1.Name = "StatusStrip1"
    78. Me.StatusStrip1.Size = New System.Drawing.Size(1351, 22)
    79. Me.StatusStrip1.TabIndex = 0
    80. Me.StatusStrip1.Text = "StatusStrip1"
    81. '
    82. 'ToolStripStatusLabel1
    83. '
    84. Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
    85. Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(37, 17)
    86. Me.ToolStripStatusLabel1.Text = "Bereit"
    87. '
    88. 'ToolStripProgressBar1
    89. '
    90. Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"
    91. Me.ToolStripProgressBar1.Size = New System.Drawing.Size(100, 16)
    92. '
    93. 'TabPage2
    94. '
    95. Me.TabPage2.Location = New System.Drawing.Point(4, 22)
    96. Me.TabPage2.Name = "TabPage2"
    97. Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
    98. Me.TabPage2.Size = New System.Drawing.Size(1357, 639)
    99. Me.TabPage2.TabIndex = 1
    100. Me.TabPage2.Text = "TabPage2"
    101. Me.TabPage2.UseVisualStyleBackColor = True
    102. '
    103. 'Panel1
    104. '
    105. Me.Panel1.Controls.Add(Me.stopBtn)
    106. Me.Panel1.Controls.Add(Me.refreshBtn)
    107. Me.Panel1.Controls.Add(Me.addBtn)
    108. Me.Panel1.Controls.Add(Me.closeBtn)
    109. Me.Panel1.Controls.Add(Me.goBtn)
    110. Me.Panel1.Controls.Add(Me.urlt)
    111. Me.Panel1.Controls.Add(Me.forwardBtn)
    112. Me.Panel1.Controls.Add(Me.backBtn)
    113. Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
    114. Me.Panel1.Location = New System.Drawing.Point(0, 0)
    115. Me.Panel1.Name = "Panel1"
    116. Me.Panel1.Size = New System.Drawing.Size(1349, 50)
    117. Me.Panel1.TabIndex = 1
    118. '
    119. 'stopBtn
    120. '
    121. Me.stopBtn.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    122. Or System.Windows.Forms.AnchorStyles.Left) _
    123. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    124. Me.stopBtn.Image = CType(resources.GetObject("stopBtn.Image"), System.Drawing.Image)
    125. Me.stopBtn.Location = New System.Drawing.Point(1036, 17)
    126. Me.stopBtn.Name = "stopBtn"
    127. Me.stopBtn.Size = New System.Drawing.Size(21, 17)
    128. Me.stopBtn.TabIndex = 2
    129. Me.stopBtn.TabStop = False
    130. '
    131. 'refreshBtn
    132. '
    133. Me.refreshBtn.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    134. Or System.Windows.Forms.AnchorStyles.Left) _
    135. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    136. Me.refreshBtn.Image = CType(resources.GetObject("refreshBtn.Image"), System.Drawing.Image)
    137. Me.refreshBtn.Location = New System.Drawing.Point(1056, 16)
    138. Me.refreshBtn.Name = "refreshBtn"
    139. Me.refreshBtn.Size = New System.Drawing.Size(22, 18)
    140. Me.refreshBtn.TabIndex = 8
    141. Me.refreshBtn.TabStop = False
    142. '
    143. 'addBtn
    144. '
    145. Me.addBtn.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    146. Or System.Windows.Forms.AnchorStyles.Left) _
    147. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    148. Me.addBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    149. Me.addBtn.Location = New System.Drawing.Point(1098, 14)
    150. Me.addBtn.Name = "addBtn"
    151. Me.addBtn.Size = New System.Drawing.Size(25, 23)
    152. Me.addBtn.TabIndex = 7
    153. Me.addBtn.Text = "+"
    154. Me.addBtn.UseVisualStyleBackColor = True
    155. '
    156. 'closeBtn
    157. '
    158. Me.closeBtn.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    159. Or System.Windows.Forms.AnchorStyles.Left) _
    160. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    161. Me.closeBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    162. Me.closeBtn.Location = New System.Drawing.Point(1127, 14)
    163. Me.closeBtn.Name = "closeBtn"
    164. Me.closeBtn.Size = New System.Drawing.Size(25, 23)
    165. Me.closeBtn.TabIndex = 6
    166. Me.closeBtn.Text = "-"
    167. Me.closeBtn.UseVisualStyleBackColor = True
    168. '
    169. 'goBtn
    170. '
    171. Me.goBtn.Location = New System.Drawing.Point(1337, 0)
    172. Me.goBtn.Name = "goBtn"
    173. Me.goBtn.Size = New System.Drawing.Size(0, 0)
    174. Me.goBtn.TabIndex = 3
    175. Me.goBtn.Text = "Go"
    176. Me.goBtn.UseVisualStyleBackColor = True
    177. '
    178. 'urlt
    179. '
    180. Me.urlt.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    181. Or System.Windows.Forms.AnchorStyles.Left) _
    182. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    183. Me.urlt.FormattingEnabled = True
    184. Me.urlt.Location = New System.Drawing.Point(102, 14)
    185. Me.urlt.Name = "urlt"
    186. Me.urlt.Size = New System.Drawing.Size(992, 21)
    187. Me.urlt.TabIndex = 2
    188. '
    189. 'forwardBtn
    190. '
    191. Me.forwardBtn.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    192. Or System.Windows.Forms.AnchorStyles.Left) _
    193. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    194. Me.forwardBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    195. Me.forwardBtn.Location = New System.Drawing.Point(72, 12)
    196. Me.forwardBtn.Name = "forwardBtn"
    197. Me.forwardBtn.Size = New System.Drawing.Size(26, 23)
    198. Me.forwardBtn.TabIndex = 1
    199. Me.forwardBtn.Text = ">"
    200. Me.forwardBtn.UseVisualStyleBackColor = True
    201. '
    202. 'backBtn
    203. '
    204. Me.backBtn.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    205. Or System.Windows.Forms.AnchorStyles.Left) _
    206. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    207. Me.backBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    208. Me.backBtn.Location = New System.Drawing.Point(35, 7)
    209. Me.backBtn.Name = "backBtn"
    210. Me.backBtn.Size = New System.Drawing.Size(37, 32)
    211. Me.backBtn.TabIndex = 0
    212. Me.backBtn.Text = "<"
    213. Me.backBtn.UseVisualStyleBackColor = True
    214. '
    215. 'Form1
    216. '
    217. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    218. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    219. Me.ClientSize = New System.Drawing.Size(1349, 708)
    220. Me.Controls.Add(Me.Panel1)
    221. Me.Controls.Add(Me.TabControl1)
    222. Me.Name = "Form1"
    223. Me.RightToLeft = System.Windows.Forms.RightToLeft.No
    224. Me.Text = "ZET Lightningbird"
    225. Me.TabControl1.ResumeLayout(False)
    226. Me.TabPage1.ResumeLayout(False)
    227. Me.TabPage1.PerformLayout()
    228. Me.StatusStrip1.ResumeLayout(False)
    229. Me.StatusStrip1.PerformLayout()
    230. Me.Panel1.ResumeLayout(False)
    231. CType(Me.stopBtn, System.ComponentModel.ISupportInitialize).EndInit()
    232. CType(Me.refreshBtn, System.ComponentModel.ISupportInitialize).EndInit()
    233. Me.ResumeLayout(False)
    235. End Sub
    236. Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    237. Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    238. Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    239. Friend WithEvents Panel1 As System.Windows.Forms.Panel
    240. Friend WithEvents goBtn As System.Windows.Forms.Button
    241. Friend WithEvents urlt As System.Windows.Forms.ComboBox
    242. Friend WithEvents forwardBtn As System.Windows.Forms.Button
    243. Friend WithEvents backBtn As System.Windows.Forms.Button
    244. Friend WithEvents addBtn As System.Windows.Forms.Button
    245. Friend WithEvents closeBtn As System.Windows.Forms.Button
    246. Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
    247. Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
    248. Friend WithEvents ToolStripProgressBar1 As System.Windows.Forms.ToolStripProgressBar
    249. Friend WithEvents refreshBtn As System.Windows.Forms.PictureBox
    250. Friend WithEvents stopBtn As System.Windows.Forms.PictureBox
    252. End Class

    Nicσlas schrieb:

    VB.NET-Quellcode

    1. Me.TabPage1.Controls.Add(Me.StatusStrip1)
    Dein Statusstrip ist Member der TabPage1, nicht aber der Form1.
    Klick im Designer auf den Tab1 und ziehe den StatusStrip aus dem TabControl in die Form.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!