Autosize von TabControl mit beinhaltendem DataGridview funktioniert nicht.

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von wooodl.

    Autosize von TabControl mit beinhaltendem DataGridview funktioniert nicht.

    Hallo Community.

    Ich habe folgende WindowsForm in VS2012:





    Die TabControl enthält in jedem Tab ein DataGridView. Diese haben die Property: Dock: Fill.
    Der Rest ist mit Anchors an die jeweiligen Ränder gebunden.

    Trotz allem Lässt sich kein AutoSize machen wenn ich das Programm starte.
    Das Fenster flackert nur!

    Hat jemand eine Idee woran das liegen könnte?
    Vor allem das Flackern finde ich komisch.

    Grüße und Danke!
    Wooodl

    wooodl schrieb:

    Das Fenster flackert nur!
    Kannst Du mal das Projekt posten: nur den Konstruktor, Form_Load und die GUI-Definition (FormX.Designer.vb)?
    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!

    Danke für die schnelle Antwort!

    Welchen Konstruktor meinst du?

    Designer:

    Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Aufträge
    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. Me.components = New System.ComponentModel.Container()
    26. Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Aufträge))
    27. Me.TabControl1 = New System.Windows.Forms.TabControl()
    28. Me.TabAufträge = New System.Windows.Forms.TabPage()
    29. Me.DGVAufträge = New System.Windows.Forms.DataGridView()
    30. Me.cmsAufträge = New System.Windows.Forms.ContextMenuStrip(Me.components)
    31. Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    32. Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    33. Me.Label1 = New System.Windows.Forms.Label()
    34. Me.TabPositionen = New System.Windows.Forms.TabPage()
    35. Me.DGVPositionen = New System.Windows.Forms.DataGridView()
    36. Me.cmPositionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
    37. Me.BearbeitenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
    38. Me.TabTasks = New System.Windows.Forms.TabPage()
    39. Me.DGVTasks = New System.Windows.Forms.DataGridView()
    40. Me.cmsTasks = New System.Windows.Forms.ContextMenuStrip(Me.components)
    41. Me.BearbeitenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
    42. Me.TaskStartMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    43. Me.TaskFertigMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    44. Me.ZurücksetztenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    45. Me.DatumAbHierVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    46. Me.lbl = New System.Windows.Forms.Label()
    47. Me.btnStatistik = New System.Windows.Forms.Button()
    48. Me.BtnBeenden = New System.Windows.Forms.Button()
    49. Me.BtnHinzufügen = New System.Windows.Forms.Button()
    50. Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
    51. Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
    52. Me.PictureBox1 = New System.Windows.Forms.PictureBox()
    53. Me.btnUpdate = New System.Windows.Forms.Button()
    54. Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
    55. Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
    56. Me.btnKunden = New System.Windows.Forms.Button()
    57. Me.tbSuchen = New System.Windows.Forms.TextBox()
    58. Me.Label2 = New System.Windows.Forms.Label()
    59. Me.pb = New System.Windows.Forms.ProgressBar()
    60. Me.lb = New System.Windows.Forms.Label()
    61. Me.TabControl1.SuspendLayout()
    62. Me.TabAufträge.SuspendLayout()
    63. CType(Me.DGVAufträge, System.ComponentModel.ISupportInitialize).BeginInit()
    64. Me.cmsAufträge.SuspendLayout()
    65. Me.TabPositionen.SuspendLayout()
    66. CType(Me.DGVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
    67. Me.cmPositionen.SuspendLayout()
    68. Me.TabTasks.SuspendLayout()
    69. CType(Me.DGVTasks, System.ComponentModel.ISupportInitialize).BeginInit()
    70. Me.cmsTasks.SuspendLayout()
    71. CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
    72. Me.StatusStrip1.SuspendLayout()
    73. Me.SuspendLayout()
    74. '
    75. 'TabControl1
    76. '
    77. Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    78. Or System.Windows.Forms.AnchorStyles.Left) _
    79. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    80. Me.TabControl1.Controls.Add(Me.TabAufträge)
    81. Me.TabControl1.Controls.Add(Me.TabPositionen)
    82. Me.TabControl1.Controls.Add(Me.TabTasks)
    83. Me.TabControl1.Location = New System.Drawing.Point(12, 66)
    84. Me.TabControl1.Name = "TabControl1"
    85. Me.TabControl1.SelectedIndex = 0
    86. Me.TabControl1.Size = New System.Drawing.Size(928, 732)
    87. Me.TabControl1.SizeMode = System.Windows.Forms.TabSizeMode.FillToRight
    88. Me.TabControl1.TabIndex = 0
    89. '
    90. 'TabAufträge
    91. '
    92. Me.TabAufträge.Controls.Add(Me.DGVAufträge)
    93. Me.TabAufträge.Controls.Add(Me.Label1)
    94. Me.TabAufträge.Location = New System.Drawing.Point(4, 22)
    95. Me.TabAufträge.Name = "TabAufträge"
    96. Me.TabAufträge.Padding = New System.Windows.Forms.Padding(3)
    97. Me.TabAufträge.Size = New System.Drawing.Size(920, 706)
    98. Me.TabAufträge.TabIndex = 0
    99. Me.TabAufträge.Text = "Aufträge"
    100. Me.TabAufträge.UseVisualStyleBackColor = True
    101. '
    102. 'DGVAufträge
    103. '
    104. Me.DGVAufträge.AllowUserToAddRows = False
    105. Me.DGVAufträge.AllowUserToDeleteRows = False
    106. Me.DGVAufträge.AllowUserToResizeColumns = False
    107. Me.DGVAufträge.AllowUserToResizeRows = False
    108. Me.DGVAufträge.BackgroundColor = System.Drawing.SystemColors.Window
    109. Me.DGVAufträge.BorderStyle = System.Windows.Forms.BorderStyle.None
    110. Me.DGVAufträge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    111. Me.DGVAufträge.ContextMenuStrip = Me.cmsAufträge
    112. Me.DGVAufträge.Dock = System.Windows.Forms.DockStyle.Fill
    113. Me.DGVAufträge.Location = New System.Drawing.Point(3, 3)
    114. Me.DGVAufträge.Name = "DGVAufträge"
    115. Me.DGVAufträge.Size = New System.Drawing.Size(914, 700)
    116. Me.DGVAufträge.TabIndex = 1
    117. '
    118. 'cmsAufträge
    119. '
    120. Me.cmsAufträge.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem, Me.BearbeitenToolStripMenuItem})
    121. Me.cmsAufträge.Name = "cmsDGV"
    122. Me.cmsAufträge.Size = New System.Drawing.Size(131, 48)
    123. '
    124. 'LöschenToolStripMenuItem
    125. '
    126. Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
    127. Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
    128. Me.LöschenToolStripMenuItem.Text = "Löschen"
    129. '
    130. 'BearbeitenToolStripMenuItem
    131. '
    132. Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
    133. Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
    134. Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
    135. '
    136. 'Label1
    137. '
    138. Me.Label1.AutoSize = True
    139. Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    140. Me.Label1.Location = New System.Drawing.Point(538, 267)
    141. Me.Label1.Name = "Label1"
    142. Me.Label1.Size = New System.Drawing.Size(89, 17)
    143. Me.Label1.TabIndex = 11
    144. Me.Label1.Text = "Alle Aufträge"
    145. '
    146. 'TabPositionen
    147. '
    148. Me.TabPositionen.Controls.Add(Me.DGVPositionen)
    149. Me.TabPositionen.Location = New System.Drawing.Point(4, 22)
    150. Me.TabPositionen.Name = "TabPositionen"
    151. Me.TabPositionen.Padding = New System.Windows.Forms.Padding(3)
    152. Me.TabPositionen.Size = New System.Drawing.Size(920, 706)
    153. Me.TabPositionen.TabIndex = 1
    154. Me.TabPositionen.Text = "Positionen"
    155. Me.TabPositionen.UseVisualStyleBackColor = True
    156. '
    157. 'DGVPositionen
    158. '
    159. Me.DGVPositionen.BackgroundColor = System.Drawing.SystemColors.Window
    160. Me.DGVPositionen.BorderStyle = System.Windows.Forms.BorderStyle.None
    161. Me.DGVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    162. Me.DGVPositionen.ContextMenuStrip = Me.cmPositionen
    163. Me.DGVPositionen.Dock = System.Windows.Forms.DockStyle.Fill
    164. Me.DGVPositionen.Location = New System.Drawing.Point(3, 3)
    165. Me.DGVPositionen.Name = "DGVPositionen"
    166. Me.DGVPositionen.Size = New System.Drawing.Size(914, 700)
    167. Me.DGVPositionen.TabIndex = 3
    168. '
    169. 'cmPositionen
    170. '
    171. Me.cmPositionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem1})
    172. Me.cmPositionen.Name = "ContextMenuStrip1"
    173. Me.cmPositionen.Size = New System.Drawing.Size(131, 26)
    174. '
    175. 'BearbeitenToolStripMenuItem1
    176. '
    177. Me.BearbeitenToolStripMenuItem1.Name = "BearbeitenToolStripMenuItem1"
    178. Me.BearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(130, 22)
    179. Me.BearbeitenToolStripMenuItem1.Text = "Bearbeiten"
    180. '
    181. 'TabTasks
    182. '
    183. Me.TabTasks.Controls.Add(Me.DGVTasks)
    184. Me.TabTasks.Controls.Add(Me.lbl)
    185. Me.TabTasks.Location = New System.Drawing.Point(4, 22)
    186. Me.TabTasks.Name = "TabTasks"
    187. Me.TabTasks.Padding = New System.Windows.Forms.Padding(3)
    188. Me.TabTasks.Size = New System.Drawing.Size(920, 706)
    189. Me.TabTasks.TabIndex = 2
    190. Me.TabTasks.Text = "Tasks"
    191. Me.TabTasks.UseVisualStyleBackColor = True
    192. '
    193. 'DGVTasks
    194. '
    195. Me.DGVTasks.AllowUserToResizeColumns = False
    196. Me.DGVTasks.AllowUserToResizeRows = False
    197. Me.DGVTasks.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
    198. Me.DGVTasks.BackgroundColor = System.Drawing.SystemColors.Window
    199. Me.DGVTasks.BorderStyle = System.Windows.Forms.BorderStyle.None
    200. Me.DGVTasks.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    201. Me.DGVTasks.ContextMenuStrip = Me.cmsTasks
    202. Me.DGVTasks.Dock = System.Windows.Forms.DockStyle.Fill
    203. Me.DGVTasks.Location = New System.Drawing.Point(3, 3)
    204. Me.DGVTasks.Name = "DGVTasks"
    205. Me.DGVTasks.Size = New System.Drawing.Size(914, 700)
    206. Me.DGVTasks.TabIndex = 4
    207. '
    208. 'cmsTasks
    209. '
    210. Me.cmsTasks.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem2, Me.TaskStartMeldenToolStripMenuItem, Me.TaskFertigMeldenToolStripMenuItem, Me.ZurücksetztenToolStripMenuItem, Me.DatumAbHierVerschiebenToolStripMenuItem})
    211. Me.cmsTasks.Name = "cmsTasks"
    212. Me.cmsTasks.Size = New System.Drawing.Size(218, 114)
    213. '
    214. 'BearbeitenToolStripMenuItem2
    215. '
    216. Me.BearbeitenToolStripMenuItem2.Name = "BearbeitenToolStripMenuItem2"
    217. Me.BearbeitenToolStripMenuItem2.Size = New System.Drawing.Size(217, 22)
    218. Me.BearbeitenToolStripMenuItem2.Text = "Bearbeiten"
    219. '
    220. 'TaskStartMeldenToolStripMenuItem
    221. '
    222. Me.TaskStartMeldenToolStripMenuItem.Name = "TaskStartMeldenToolStripMenuItem"
    223. Me.TaskStartMeldenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    224. Me.TaskStartMeldenToolStripMenuItem.Text = "Task Start-Melden"
    225. '
    226. 'TaskFertigMeldenToolStripMenuItem
    227. '
    228. Me.TaskFertigMeldenToolStripMenuItem.Name = "TaskFertigMeldenToolStripMenuItem"
    229. Me.TaskFertigMeldenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    230. Me.TaskFertigMeldenToolStripMenuItem.Text = "Task Fertig-Melden"
    231. '
    232. 'ZurücksetztenToolStripMenuItem
    233. '
    234. Me.ZurücksetztenToolStripMenuItem.Name = "ZurücksetztenToolStripMenuItem"
    235. Me.ZurücksetztenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    236. Me.ZurücksetztenToolStripMenuItem.Text = "Zurücksetzen"
    237. '
    238. 'DatumAbHierVerschiebenToolStripMenuItem
    239. '
    240. Me.DatumAbHierVerschiebenToolStripMenuItem.Name = "DatumAbHierVerschiebenToolStripMenuItem"
    241. Me.DatumAbHierVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    242. Me.DatumAbHierVerschiebenToolStripMenuItem.Text = "Datum ab Hier verschieben"
    243. '
    244. 'lbl
    245. '
    246. Me.lbl.AutoSize = True
    247. Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    248. Me.lbl.Location = New System.Drawing.Point(176, -17)
    249. Me.lbl.Name = "lbl"
    250. Me.lbl.Size = New System.Drawing.Size(64, 17)
    251. Me.lbl.TabIndex = 5
    252. Me.lbl.Text = "lbTasks"
    253. '
    254. 'btnStatistik
    255. '
    256. Me.btnStatistik.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    257. Me.btnStatistik.AutoSize = True
    258. Me.btnStatistik.Location = New System.Drawing.Point(387, 805)
    259. Me.btnStatistik.Name = "btnStatistik"
    260. Me.btnStatistik.Size = New System.Drawing.Size(115, 23)
    261. Me.btnStatistik.TabIndex = 4
    262. Me.btnStatistik.Text = "Statistik"
    263. Me.btnStatistik.UseVisualStyleBackColor = True
    264. '
    265. 'BtnBeenden
    266. '
    267. Me.BtnBeenden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    268. Me.BtnBeenden.AutoSize = True
    269. Me.BtnBeenden.Location = New System.Drawing.Point(825, 804)
    270. Me.BtnBeenden.Name = "BtnBeenden"
    271. Me.BtnBeenden.Size = New System.Drawing.Size(115, 23)
    272. Me.BtnBeenden.TabIndex = 5
    273. Me.BtnBeenden.Text = "Beenden"
    274. Me.BtnBeenden.UseVisualStyleBackColor = True
    275. '
    276. 'BtnHinzufügen
    277. '
    278. Me.BtnHinzufügen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    279. Me.BtnHinzufügen.AutoSize = True
    280. Me.BtnHinzufügen.Location = New System.Drawing.Point(12, 805)
    281. Me.BtnHinzufügen.Name = "BtnHinzufügen"
    282. Me.BtnHinzufügen.Size = New System.Drawing.Size(115, 23)
    283. Me.BtnHinzufügen.TabIndex = 1
    284. Me.BtnHinzufügen.Text = "Hinzufügen"
    285. Me.BtnHinzufügen.UseVisualStyleBackColor = True
    286. '
    287. 'DataGridViewTextBoxColumn1
    288. '
    289. Me.DataGridViewTextBoxColumn1.DataPropertyName = "ID"
    290. Me.DataGridViewTextBoxColumn1.HeaderText = "ID"
    291. Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
    292. '
    293. 'DataGridViewCheckBoxColumn1
    294. '
    295. Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
    296. '
    297. 'PictureBox1
    298. '
    299. Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    300. Me.PictureBox1.ErrorImage = Nothing
    301. Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
    302. Me.PictureBox1.InitialImage = Nothing
    303. Me.PictureBox1.Location = New System.Drawing.Point(482, 12)
    304. Me.PictureBox1.Name = "PictureBox1"
    305. Me.PictureBox1.Size = New System.Drawing.Size(458, 63)
    306. Me.PictureBox1.TabIndex = 1
    307. Me.PictureBox1.TabStop = False
    308. '
    309. 'btnUpdate
    310. '
    311. Me.btnUpdate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    312. Me.btnUpdate.AutoSize = True
    313. Me.btnUpdate.Location = New System.Drawing.Point(145, 805)
    314. Me.btnUpdate.Name = "btnUpdate"
    315. Me.btnUpdate.Size = New System.Drawing.Size(115, 23)
    316. Me.btnUpdate.TabIndex = 2
    317. Me.btnUpdate.Text = "Update"
    318. Me.btnUpdate.UseVisualStyleBackColor = True
    319. '
    320. 'StatusStrip1
    321. '
    322. Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
    323. Me.StatusStrip1.Location = New System.Drawing.Point(0, 831)
    324. Me.StatusStrip1.Name = "StatusStrip1"
    325. Me.StatusStrip1.Size = New System.Drawing.Size(952, 22)
    326. Me.StatusStrip1.TabIndex = 11
    327. Me.StatusStrip1.Text = "StatusStrip1"
    328. '
    329. 'ToolStripStatusLabel1
    330. '
    331. Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
    332. Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(73, 17)
    333. Me.ToolStripStatusLabel1.Text = "KIT Aufträge"
    334. '
    335. 'btnKunden
    336. '
    337. Me.btnKunden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    338. Me.btnKunden.AutoSize = True
    339. Me.btnKunden.Location = New System.Drawing.Point(266, 805)
    340. Me.btnKunden.Name = "btnKunden"
    341. Me.btnKunden.Size = New System.Drawing.Size(115, 23)
    342. Me.btnKunden.TabIndex = 3
    343. Me.btnKunden.Text = "Kundenübersicht"
    344. Me.btnKunden.UseVisualStyleBackColor = True
    345. '
    346. 'tbSuchen
    347. '
    348. Me.tbSuchen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    349. Me.tbSuchen.Location = New System.Drawing.Point(661, 807)
    350. Me.tbSuchen.Name = "tbSuchen"
    351. Me.tbSuchen.Size = New System.Drawing.Size(115, 20)
    352. Me.tbSuchen.TabIndex = 12
    353. '
    354. 'Label2
    355. '
    356. Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    357. Me.Label2.AutoSize = True
    358. Me.Label2.Location = New System.Drawing.Point(566, 810)
    359. Me.Label2.Name = "Label2"
    360. Me.Label2.Size = New System.Drawing.Size(89, 13)
    361. Me.Label2.TabIndex = 13
    362. Me.Label2.Text = "AuftrNr od. Firma:"
    363. '
    364. 'pb
    365. '
    366. Me.pb.Location = New System.Drawing.Point(12, 12)
    367. Me.pb.Name = "pb"
    368. Me.pb.Size = New System.Drawing.Size(211, 23)
    369. Me.pb.TabIndex = 14
    370. '
    371. 'lb
    372. '
    373. Me.lb.AutoSize = True
    374. Me.lb.Location = New System.Drawing.Point(9, 43)
    375. Me.lb.Name = "lb"
    376. Me.lb.Size = New System.Drawing.Size(33, 13)
    377. Me.lb.TabIndex = 15
    378. Me.lb.Text = "Label"
    379. '
    380. 'Aufträge
    381. '
    382. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    383. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    384. Me.AutoSize = True
    385. Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
    386. Me.ClientSize = New System.Drawing.Size(952, 853)
    387. Me.Controls.Add(Me.lb)
    388. Me.Controls.Add(Me.pb)
    389. Me.Controls.Add(Me.Label2)
    390. Me.Controls.Add(Me.tbSuchen)
    391. Me.Controls.Add(Me.btnKunden)
    392. Me.Controls.Add(Me.StatusStrip1)
    393. Me.Controls.Add(Me.btnUpdate)
    394. Me.Controls.Add(Me.PictureBox1)
    395. Me.Controls.Add(Me.BtnBeenden)
    396. Me.Controls.Add(Me.btnStatistik)
    397. Me.Controls.Add(Me.BtnHinzufügen)
    398. Me.Controls.Add(Me.TabControl1)
    399. Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    400. Me.Name = "Aufträge"
    401. Me.Text = "KIT Project"
    402. Me.TabControl1.ResumeLayout(False)
    403. Me.TabAufträge.ResumeLayout(False)
    404. Me.TabAufträge.PerformLayout()
    405. CType(Me.DGVAufträge, System.ComponentModel.ISupportInitialize).EndInit()
    406. Me.cmsAufträge.ResumeLayout(False)
    407. Me.TabPositionen.ResumeLayout(False)
    408. CType(Me.DGVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
    409. Me.cmPositionen.ResumeLayout(False)
    410. Me.TabTasks.ResumeLayout(False)
    411. Me.TabTasks.PerformLayout()
    412. CType(Me.DGVTasks, System.ComponentModel.ISupportInitialize).EndInit()
    413. Me.cmsTasks.ResumeLayout(False)
    414. CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
    415. Me.StatusStrip1.ResumeLayout(False)
    416. Me.StatusStrip1.PerformLayout()
    417. Me.ResumeLayout(False)
    418. Me.PerformLayout()
    420. End Sub
    421. Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    422. Friend WithEvents TabAufträge As System.Windows.Forms.TabPage
    423. Friend WithEvents TabPositionen As System.Windows.Forms.TabPage
    424. Friend WithEvents TabTasks As System.Windows.Forms.TabPage
    425. Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
    426. Friend WithEvents DataGridViewCheckBoxColumn1 As System.Windows.Forms.DataGridViewCheckBoxColumn
    427. Friend WithEvents BtnBeenden As System.Windows.Forms.Button
    428. Friend WithEvents BtnHinzufügen As System.Windows.Forms.Button
    429. Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    430. Friend WithEvents btnStatistik As System.Windows.Forms.Button
    431. Friend WithEvents DGVAufträge As System.Windows.Forms.DataGridView
    432. Friend WithEvents DGVPositionen As System.Windows.Forms.DataGridView
    433. Friend WithEvents DGVTasks As System.Windows.Forms.DataGridView
    434. Friend WithEvents lbl As System.Windows.Forms.Label
    435. Friend WithEvents btnUpdate As System.Windows.Forms.Button
    436. Friend WithEvents cmsAufträge As System.Windows.Forms.ContextMenuStrip
    437. Friend WithEvents LöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    438. Friend WithEvents BearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    439. Friend WithEvents cmPositionen As System.Windows.Forms.ContextMenuStrip
    440. Friend WithEvents BearbeitenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
    441. Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
    442. Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
    443. Friend WithEvents cmsTasks As System.Windows.Forms.ContextMenuStrip
    444. Friend WithEvents BearbeitenToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
    445. Friend WithEvents btnKunden As System.Windows.Forms.Button
    446. Friend WithEvents TaskStartMeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    447. Friend WithEvents TaskFertigMeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    448. Friend WithEvents ZurücksetztenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    449. Friend WithEvents DatumAbHierVerschiebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    450. Friend WithEvents Label1 As System.Windows.Forms.Label
    451. Friend WithEvents tbSuchen As System.Windows.Forms.TextBox
    452. Friend WithEvents Label2 As System.Windows.Forms.Label
    453. Friend WithEvents pb As System.Windows.Forms.ProgressBar
    454. Friend WithEvents lb As System.Windows.Forms.Label
    456. End Class


    Form_Load:

    VB.NET-Quellcode

    1. With Aufträge
    2. .lb.Visible = False
    3. .pb.Visible = False
    4. .lb.Refresh()
    5. .pb.Refresh()
    6. End With
    8. Try
    9. 'Fülle die DataSets
    10. Daten.dsAlleAufträge = Daten.getData("SELECT * FROM Aufträge", "AlleAufträge")
    11. Daten.dsAllePositionen = Daten.getData("SELECT * FROM Positionen", "AllePositionen")
    12. Daten.dsAlleTasks = Daten.getData("SELECT * FROM Tasks", "AlleTasks")
    13. Daten.dsAlleVorgänger = Daten.getData("SELECT * FROM Vorgänger", "AlleVorgänger")
    15. 'Erstelle BindingSource
    16. Aufträge.bsAufträge = New BindingSource(dsAlleAufträge, "AlleAufträge")
    18. 'Erstelle DataGridViewColumns für Rot/Grün
    19. Dim RotGrünSymbolColumn As New DataGridViewImageColumn
    20. RotGrünSymbolColumn.Name = "Bilder"
    21. RotGrünSymbolColumn.HeaderText = ""
    22. RotGrünSymbolColumn.Width = 24
    23. RotGrünSymbolColumn.DefaultCellStyle.NullValue = Nothing
    24. Aufträge.DGVAufträge.Columns.Add(RotGrünSymbolColumn)
    26. 'DataGridViewColumn für Briefsymbol
    27. Dim PostColumn As New DataGridViewImageColumn
    28. PostColumn.Name = "Brief"
    29. PostColumn.Width = 24
    30. PostColumn.HeaderText = ""
    31. PostColumn.DefaultCellStyle.NullValue = Nothing
    32. Aufträge.DGVAufträge.Columns.Add(PostColumn)
    34. 'Binde das DataSet an das DataGridView Äuftrgäge
    35. Aufträge.DGVAufträge.DataSource = Aufträge.bsAufträge
    37. 'Optionen für DGVAufträge
    38. With Aufträge.DGVAufträge
    39. .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    40. .AllowUserToAddRows = False
    41. .AllowUserToDeleteRows = False
    42. .RowHeadersWidth += 10
    43. .Columns("Fertig").Width = 60
    44. .Columns("AuftrNr").HeaderText = "Auftragsnummer"
    45. .Columns("AuftrNr").Width = 115
    46. .Columns("Deadline").HeaderText = "Termin"
    47. .Columns("Deadline").Width = 105
    48. .Columns("ID").Visible = False
    49. .Columns("NewsFlag").Width = 60
    50. .Columns("NewsFlag").HeaderText = "Meldung?"
    51. .Columns("NewsFlag").SortMode = DataGridViewColumnSortMode.Automatic
    52. .Columns("VerpFlag").SortMode = DataGridViewColumnSortMode.Automatic
    53. .Columns("Fertig").SortMode = DataGridViewColumnSortMode.Automatic
    54. .Columns("VerpFlag").HeaderText = "Verpackung"
    55. .Columns("VerpFlag").Width = 70
    56. .Columns("Wert").DefaultCellStyle.Format = "c"
    57. .Columns("Wert").Width = 100
    58. .Columns("Bilder").DisplayIndex = 0
    59. .Columns("Brief").DisplayIndex = 1
    60. .Columns("AuftrNr").DisplayIndex = 2
    61. .Columns("Firma").DisplayIndex = 3
    62. .Columns("Firma").Width = 165
    63. .Columns("Wert").DisplayIndex = 4
    64. .Columns("Deadline").DisplayIndex = 5
    65. .Columns("VerpFlag").DisplayIndex = 7
    66. .Columns("VTermin").HeaderText = "Voraussichtl. Termin"
    67. .Columns("VTermin").Width = 115
    68. .Columns("VTermin").DefaultCellStyle.Format = "dd.MM.yyyy"
    69. .Columns("VTermin").DisplayIndex = 6
    70. .Columns("VTermin").DefaultCellStyle.ForeColor = Color.MediumSeaGreen
    71. .Columns("VTermin").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    72. .Columns("Deadline").DefaultCellStyle.ForeColor = Color.Red
    73. .Columns("Deadline").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    74. .Columns("Wert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    76. End With
    78. 'Setze Alle Columns des DGV auf ReadOnly
    79. For Each c As DataGridViewColumn In Aufträge.DGVAufträge.Columns
    80. c.ReadOnly = True
    81. Next
    83. Aufträge.DGVAufträge.Sort(Aufträge.DGVAufträge.Columns("AuftrNr"), System.ComponentModel.ListSortDirection.Ascending)
    85. Catch ex As Exception
    86. MessageBox.Show(ex.Message, "Fehler in Aufträge.MyBase_Load")
    87. End Try

    wooodl schrieb:

    Designer
    bringt Fehler, kannst Du das bitte so reduzieren, dass es kompiliert?
    Konstruktor:
    New(), wo InitializeComponents() drin steht.

    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!

    Okay. Also bei mir kompiliert es jetzt. Sorry
    Form_Load:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Public Class Aufträge
    5. Public Sub MyBase_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. End Sub
    9. End Class


    Designer:

    Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Aufträge
    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. Me.components = New System.ComponentModel.Container()
    26. Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Aufträge))
    27. Me.TabControl1 = New System.Windows.Forms.TabControl()
    28. Me.TabAufträge = New System.Windows.Forms.TabPage()
    29. Me.DGVAufträge = New System.Windows.Forms.DataGridView()
    30. Me.cmsAufträge = New System.Windows.Forms.ContextMenuStrip(Me.components)
    31. Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    32. Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    33. Me.Label1 = New System.Windows.Forms.Label()
    34. Me.TabPositionen = New System.Windows.Forms.TabPage()
    35. Me.DGVPositionen = New System.Windows.Forms.DataGridView()
    36. Me.cmPositionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
    37. Me.BearbeitenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
    38. Me.TabTasks = New System.Windows.Forms.TabPage()
    39. Me.DGVTasks = New System.Windows.Forms.DataGridView()
    40. Me.cmsTasks = New System.Windows.Forms.ContextMenuStrip(Me.components)
    41. Me.BearbeitenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
    42. Me.TaskStartMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    43. Me.TaskFertigMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    44. Me.ZurücksetztenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    45. Me.DatumAbHierVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    46. Me.lbl = New System.Windows.Forms.Label()
    47. Me.btnStatistik = New System.Windows.Forms.Button()
    48. Me.BtnBeenden = New System.Windows.Forms.Button()
    49. Me.BtnHinzufügen = New System.Windows.Forms.Button()
    50. Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
    51. Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
    52. Me.PictureBox1 = New System.Windows.Forms.PictureBox()
    53. Me.btnUpdate = New System.Windows.Forms.Button()
    54. Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
    55. Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
    56. Me.btnKunden = New System.Windows.Forms.Button()
    57. Me.tbSuchen = New System.Windows.Forms.TextBox()
    58. Me.Label2 = New System.Windows.Forms.Label()
    59. Me.pb = New System.Windows.Forms.ProgressBar()
    60. Me.lb = New System.Windows.Forms.Label()
    61. Me.TabControl1.SuspendLayout()
    62. Me.TabAufträge.SuspendLayout()
    63. CType(Me.DGVAufträge, System.ComponentModel.ISupportInitialize).BeginInit()
    64. Me.cmsAufträge.SuspendLayout()
    65. Me.TabPositionen.SuspendLayout()
    66. CType(Me.DGVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
    67. Me.cmPositionen.SuspendLayout()
    68. Me.TabTasks.SuspendLayout()
    69. CType(Me.DGVTasks, System.ComponentModel.ISupportInitialize).BeginInit()
    70. Me.cmsTasks.SuspendLayout()
    71. CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
    72. Me.StatusStrip1.SuspendLayout()
    73. Me.SuspendLayout()
    74. '
    75. 'TabControl1
    76. '
    77. Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    78. Or System.Windows.Forms.AnchorStyles.Left) _
    79. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    80. Me.TabControl1.Controls.Add(Me.TabAufträge)
    81. Me.TabControl1.Controls.Add(Me.TabPositionen)
    82. Me.TabControl1.Controls.Add(Me.TabTasks)
    83. Me.TabControl1.Location = New System.Drawing.Point(12, 66)
    84. Me.TabControl1.Name = "TabControl1"
    85. Me.TabControl1.SelectedIndex = 0
    86. Me.TabControl1.Size = New System.Drawing.Size(928, 732)
    87. Me.TabControl1.SizeMode = System.Windows.Forms.TabSizeMode.FillToRight
    88. Me.TabControl1.TabIndex = 0
    89. '
    90. 'TabAufträge
    91. '
    92. Me.TabAufträge.Controls.Add(Me.DGVAufträge)
    93. Me.TabAufträge.Controls.Add(Me.Label1)
    94. Me.TabAufträge.Location = New System.Drawing.Point(4, 22)
    95. Me.TabAufträge.Name = "TabAufträge"
    96. Me.TabAufträge.Padding = New System.Windows.Forms.Padding(3)
    97. Me.TabAufträge.Size = New System.Drawing.Size(920, 706)
    98. Me.TabAufträge.TabIndex = 0
    99. Me.TabAufträge.Text = "Aufträge"
    100. Me.TabAufträge.UseVisualStyleBackColor = True
    101. '
    102. 'DGVAufträge
    103. '
    104. Me.DGVAufträge.AllowUserToAddRows = False
    105. Me.DGVAufträge.AllowUserToDeleteRows = False
    106. Me.DGVAufträge.AllowUserToResizeColumns = False
    107. Me.DGVAufträge.AllowUserToResizeRows = False
    108. Me.DGVAufträge.BackgroundColor = System.Drawing.SystemColors.Window
    109. Me.DGVAufträge.BorderStyle = System.Windows.Forms.BorderStyle.None
    110. Me.DGVAufträge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    111. Me.DGVAufträge.ContextMenuStrip = Me.cmsAufträge
    112. Me.DGVAufträge.Dock = System.Windows.Forms.DockStyle.Fill
    113. Me.DGVAufträge.Location = New System.Drawing.Point(3, 3)
    114. Me.DGVAufträge.Name = "DGVAufträge"
    115. Me.DGVAufträge.Size = New System.Drawing.Size(914, 700)
    116. Me.DGVAufträge.TabIndex = 1
    117. '
    118. 'cmsAufträge
    119. '
    120. Me.cmsAufträge.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem, Me.BearbeitenToolStripMenuItem})
    121. Me.cmsAufträge.Name = "cmsDGV"
    122. Me.cmsAufträge.Size = New System.Drawing.Size(131, 48)
    123. '
    124. 'LöschenToolStripMenuItem
    125. '
    126. Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
    127. Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
    128. Me.LöschenToolStripMenuItem.Text = "Löschen"
    129. '
    130. 'BearbeitenToolStripMenuItem
    131. '
    132. Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
    133. Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
    134. Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
    135. '
    136. 'Label1
    137. '
    138. Me.Label1.AutoSize = True
    139. Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    140. Me.Label1.Location = New System.Drawing.Point(538, 267)
    141. Me.Label1.Name = "Label1"
    142. Me.Label1.Size = New System.Drawing.Size(89, 17)
    143. Me.Label1.TabIndex = 11
    144. Me.Label1.Text = "Alle Aufträge"
    145. '
    146. 'TabPositionen
    147. '
    148. Me.TabPositionen.Controls.Add(Me.DGVPositionen)
    149. Me.TabPositionen.Location = New System.Drawing.Point(4, 22)
    150. Me.TabPositionen.Name = "TabPositionen"
    151. Me.TabPositionen.Padding = New System.Windows.Forms.Padding(3)
    152. Me.TabPositionen.Size = New System.Drawing.Size(920, 706)
    153. Me.TabPositionen.TabIndex = 1
    154. Me.TabPositionen.Text = "Positionen"
    155. Me.TabPositionen.UseVisualStyleBackColor = True
    156. '
    157. 'DGVPositionen
    158. '
    159. Me.DGVPositionen.BackgroundColor = System.Drawing.SystemColors.Window
    160. Me.DGVPositionen.BorderStyle = System.Windows.Forms.BorderStyle.None
    161. Me.DGVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    162. Me.DGVPositionen.ContextMenuStrip = Me.cmPositionen
    163. Me.DGVPositionen.Dock = System.Windows.Forms.DockStyle.Fill
    164. Me.DGVPositionen.Location = New System.Drawing.Point(3, 3)
    165. Me.DGVPositionen.Name = "DGVPositionen"
    166. Me.DGVPositionen.Size = New System.Drawing.Size(914, 700)
    167. Me.DGVPositionen.TabIndex = 3
    168. '
    169. 'cmPositionen
    170. '
    171. Me.cmPositionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem1})
    172. Me.cmPositionen.Name = "ContextMenuStrip1"
    173. Me.cmPositionen.Size = New System.Drawing.Size(131, 26)
    174. '
    175. 'BearbeitenToolStripMenuItem1
    176. '
    177. Me.BearbeitenToolStripMenuItem1.Name = "BearbeitenToolStripMenuItem1"
    178. Me.BearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(130, 22)
    179. Me.BearbeitenToolStripMenuItem1.Text = "Bearbeiten"
    180. '
    181. 'TabTasks
    182. '
    183. Me.TabTasks.Controls.Add(Me.DGVTasks)
    184. Me.TabTasks.Controls.Add(Me.lbl)
    185. Me.TabTasks.Location = New System.Drawing.Point(4, 22)
    186. Me.TabTasks.Name = "TabTasks"
    187. Me.TabTasks.Padding = New System.Windows.Forms.Padding(3)
    188. Me.TabTasks.Size = New System.Drawing.Size(920, 706)
    189. Me.TabTasks.TabIndex = 2
    190. Me.TabTasks.Text = "Tasks"
    191. Me.TabTasks.UseVisualStyleBackColor = True
    192. '
    193. 'DGVTasks
    194. '
    195. Me.DGVTasks.AllowUserToResizeColumns = False
    196. Me.DGVTasks.AllowUserToResizeRows = False
    197. Me.DGVTasks.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
    198. Me.DGVTasks.BackgroundColor = System.Drawing.SystemColors.Window
    199. Me.DGVTasks.BorderStyle = System.Windows.Forms.BorderStyle.None
    200. Me.DGVTasks.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    201. Me.DGVTasks.ContextMenuStrip = Me.cmsTasks
    202. Me.DGVTasks.Dock = System.Windows.Forms.DockStyle.Fill
    203. Me.DGVTasks.Location = New System.Drawing.Point(3, 3)
    204. Me.DGVTasks.Name = "DGVTasks"
    205. Me.DGVTasks.Size = New System.Drawing.Size(914, 700)
    206. Me.DGVTasks.TabIndex = 4
    207. '
    208. 'cmsTasks
    209. '
    210. Me.cmsTasks.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem2, Me.TaskStartMeldenToolStripMenuItem, Me.TaskFertigMeldenToolStripMenuItem, Me.ZurücksetztenToolStripMenuItem, Me.DatumAbHierVerschiebenToolStripMenuItem})
    211. Me.cmsTasks.Name = "cmsTasks"
    212. Me.cmsTasks.Size = New System.Drawing.Size(218, 114)
    213. '
    214. 'BearbeitenToolStripMenuItem2
    215. '
    216. Me.BearbeitenToolStripMenuItem2.Name = "BearbeitenToolStripMenuItem2"
    217. Me.BearbeitenToolStripMenuItem2.Size = New System.Drawing.Size(217, 22)
    218. Me.BearbeitenToolStripMenuItem2.Text = "Bearbeiten"
    219. '
    220. 'TaskStartMeldenToolStripMenuItem
    221. '
    222. Me.TaskStartMeldenToolStripMenuItem.Name = "TaskStartMeldenToolStripMenuItem"
    223. Me.TaskStartMeldenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    224. Me.TaskStartMeldenToolStripMenuItem.Text = "Task Start-Melden"
    225. '
    226. 'TaskFertigMeldenToolStripMenuItem
    227. '
    228. Me.TaskFertigMeldenToolStripMenuItem.Name = "TaskFertigMeldenToolStripMenuItem"
    229. Me.TaskFertigMeldenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    230. Me.TaskFertigMeldenToolStripMenuItem.Text = "Task Fertig-Melden"
    231. '
    232. 'ZurücksetztenToolStripMenuItem
    233. '
    234. Me.ZurücksetztenToolStripMenuItem.Name = "ZurücksetztenToolStripMenuItem"
    235. Me.ZurücksetztenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    236. Me.ZurücksetztenToolStripMenuItem.Text = "Zurücksetzen"
    237. '
    238. 'DatumAbHierVerschiebenToolStripMenuItem
    239. '
    240. Me.DatumAbHierVerschiebenToolStripMenuItem.Name = "DatumAbHierVerschiebenToolStripMenuItem"
    241. Me.DatumAbHierVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
    242. Me.DatumAbHierVerschiebenToolStripMenuItem.Text = "Datum ab Hier verschieben"
    243. '
    244. 'lbl
    245. '
    246. Me.lbl.AutoSize = True
    247. Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    248. Me.lbl.Location = New System.Drawing.Point(176, -17)
    249. Me.lbl.Name = "lbl"
    250. Me.lbl.Size = New System.Drawing.Size(64, 17)
    251. Me.lbl.TabIndex = 5
    252. Me.lbl.Text = "lbTasks"
    253. '
    254. 'btnStatistik
    255. '
    256. Me.btnStatistik.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    257. Me.btnStatistik.AutoSize = True
    258. Me.btnStatistik.Location = New System.Drawing.Point(387, 805)
    259. Me.btnStatistik.Name = "btnStatistik"
    260. Me.btnStatistik.Size = New System.Drawing.Size(115, 23)
    261. Me.btnStatistik.TabIndex = 4
    262. Me.btnStatistik.Text = "Statistik"
    263. Me.btnStatistik.UseVisualStyleBackColor = True
    264. '
    265. 'BtnBeenden
    266. '
    267. Me.BtnBeenden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    268. Me.BtnBeenden.AutoSize = True
    269. Me.BtnBeenden.Location = New System.Drawing.Point(825, 804)
    270. Me.BtnBeenden.Name = "BtnBeenden"
    271. Me.BtnBeenden.Size = New System.Drawing.Size(115, 23)
    272. Me.BtnBeenden.TabIndex = 5
    273. Me.BtnBeenden.Text = "Beenden"
    274. Me.BtnBeenden.UseVisualStyleBackColor = True
    275. '
    276. 'BtnHinzufügen
    277. '
    278. Me.BtnHinzufügen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    279. Me.BtnHinzufügen.AutoSize = True
    280. Me.BtnHinzufügen.Location = New System.Drawing.Point(12, 805)
    281. Me.BtnHinzufügen.Name = "BtnHinzufügen"
    282. Me.BtnHinzufügen.Size = New System.Drawing.Size(115, 23)
    283. Me.BtnHinzufügen.TabIndex = 1
    284. Me.BtnHinzufügen.Text = "Hinzufügen"
    285. Me.BtnHinzufügen.UseVisualStyleBackColor = True
    286. '
    287. 'DataGridViewTextBoxColumn1
    288. '
    289. Me.DataGridViewTextBoxColumn1.DataPropertyName = "ID"
    290. Me.DataGridViewTextBoxColumn1.HeaderText = "ID"
    291. Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
    292. '
    293. 'DataGridViewCheckBoxColumn1
    294. '
    295. Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
    296. '
    297. 'PictureBox1
    298. '
    299. Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    300. Me.PictureBox1.ErrorImage = Nothing
    301. Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
    302. Me.PictureBox1.InitialImage = Nothing
    303. Me.PictureBox1.Location = New System.Drawing.Point(482, 12)
    304. Me.PictureBox1.Name = "PictureBox1"
    305. Me.PictureBox1.Size = New System.Drawing.Size(458, 63)
    306. Me.PictureBox1.TabIndex = 1
    307. Me.PictureBox1.TabStop = False
    308. '
    309. 'btnUpdate
    310. '
    311. Me.btnUpdate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    312. Me.btnUpdate.AutoSize = True
    313. Me.btnUpdate.Location = New System.Drawing.Point(145, 805)
    314. Me.btnUpdate.Name = "btnUpdate"
    315. Me.btnUpdate.Size = New System.Drawing.Size(115, 23)
    316. Me.btnUpdate.TabIndex = 2
    317. Me.btnUpdate.Text = "Update"
    318. Me.btnUpdate.UseVisualStyleBackColor = True
    319. '
    320. 'StatusStrip1
    321. '
    322. Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
    323. Me.StatusStrip1.Location = New System.Drawing.Point(0, 831)
    324. Me.StatusStrip1.Name = "StatusStrip1"
    325. Me.StatusStrip1.Size = New System.Drawing.Size(952, 22)
    326. Me.StatusStrip1.TabIndex = 11
    327. Me.StatusStrip1.Text = "StatusStrip1"
    328. '
    329. 'ToolStripStatusLabel1
    330. '
    331. Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
    332. Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(73, 17)
    333. Me.ToolStripStatusLabel1.Text = "KIT Aufträge"
    334. '
    335. 'btnKunden
    336. '
    337. Me.btnKunden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    338. Me.btnKunden.AutoSize = True
    339. Me.btnKunden.Location = New System.Drawing.Point(266, 805)
    340. Me.btnKunden.Name = "btnKunden"
    341. Me.btnKunden.Size = New System.Drawing.Size(115, 23)
    342. Me.btnKunden.TabIndex = 3
    343. Me.btnKunden.Text = "Kundenübersicht"
    344. Me.btnKunden.UseVisualStyleBackColor = True
    345. '
    346. 'tbSuchen
    347. '
    348. Me.tbSuchen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    349. Me.tbSuchen.Location = New System.Drawing.Point(661, 807)
    350. Me.tbSuchen.Name = "tbSuchen"
    351. Me.tbSuchen.Size = New System.Drawing.Size(115, 20)
    352. Me.tbSuchen.TabIndex = 12
    353. '
    354. 'Label2
    355. '
    356. Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    357. Me.Label2.AutoSize = True
    358. Me.Label2.Location = New System.Drawing.Point(566, 810)
    359. Me.Label2.Name = "Label2"
    360. Me.Label2.Size = New System.Drawing.Size(89, 13)
    361. Me.Label2.TabIndex = 13
    362. Me.Label2.Text = "AuftrNr od. Firma:"
    363. '
    364. 'pb
    365. '
    366. Me.pb.Location = New System.Drawing.Point(12, 12)
    367. Me.pb.Name = "pb"
    368. Me.pb.Size = New System.Drawing.Size(211, 23)
    369. Me.pb.TabIndex = 14
    370. '
    371. 'lb
    372. '
    373. Me.lb.AutoSize = True
    374. Me.lb.Location = New System.Drawing.Point(9, 43)
    375. Me.lb.Name = "lb"
    376. Me.lb.Size = New System.Drawing.Size(33, 13)
    377. Me.lb.TabIndex = 15
    378. Me.lb.Text = "Label"
    379. '
    380. 'Aufträge
    381. '
    382. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    383. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    384. Me.AutoSize = True
    385. Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
    386. Me.ClientSize = New System.Drawing.Size(952, 853)
    387. Me.Controls.Add(Me.lb)
    388. Me.Controls.Add(Me.pb)
    389. Me.Controls.Add(Me.Label2)
    390. Me.Controls.Add(Me.tbSuchen)
    391. Me.Controls.Add(Me.btnKunden)
    392. Me.Controls.Add(Me.StatusStrip1)
    393. Me.Controls.Add(Me.btnUpdate)
    394. Me.Controls.Add(Me.PictureBox1)
    395. Me.Controls.Add(Me.BtnBeenden)
    396. Me.Controls.Add(Me.btnStatistik)
    397. Me.Controls.Add(Me.BtnHinzufügen)
    398. Me.Controls.Add(Me.TabControl1)
    399. Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    400. Me.Name = "Aufträge"
    401. Me.Text = "KIT Project"
    402. Me.TabControl1.ResumeLayout(False)
    403. Me.TabAufträge.ResumeLayout(False)
    404. Me.TabAufträge.PerformLayout()
    405. CType(Me.DGVAufträge, System.ComponentModel.ISupportInitialize).EndInit()
    406. Me.cmsAufträge.ResumeLayout(False)
    407. Me.TabPositionen.ResumeLayout(False)
    408. CType(Me.DGVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
    409. Me.cmPositionen.ResumeLayout(False)
    410. Me.TabTasks.ResumeLayout(False)
    411. Me.TabTasks.PerformLayout()
    412. CType(Me.DGVTasks, System.ComponentModel.ISupportInitialize).EndInit()
    413. Me.cmsTasks.ResumeLayout(False)
    414. CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
    415. Me.StatusStrip1.ResumeLayout(False)
    416. Me.StatusStrip1.PerformLayout()
    417. Me.ResumeLayout(False)
    418. Me.PerformLayout()
    420. End Sub
    421. Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    422. Friend WithEvents TabAufträge As System.Windows.Forms.TabPage
    423. Friend WithEvents TabPositionen As System.Windows.Forms.TabPage
    424. Friend WithEvents TabTasks As System.Windows.Forms.TabPage
    425. Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
    426. Friend WithEvents DataGridViewCheckBoxColumn1 As System.Windows.Forms.DataGridViewCheckBoxColumn
    427. Friend WithEvents BtnBeenden As System.Windows.Forms.Button
    428. Friend WithEvents BtnHinzufügen As System.Windows.Forms.Button
    429. Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    430. Friend WithEvents btnStatistik As System.Windows.Forms.Button
    431. Friend WithEvents DGVAufträge As System.Windows.Forms.DataGridView
    432. Friend WithEvents DGVPositionen As System.Windows.Forms.DataGridView
    433. Friend WithEvents DGVTasks As System.Windows.Forms.DataGridView
    434. Friend WithEvents lbl As System.Windows.Forms.Label
    435. Friend WithEvents btnUpdate As System.Windows.Forms.Button
    436. Friend WithEvents cmsAufträge As System.Windows.Forms.ContextMenuStrip
    437. Friend WithEvents LöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    438. Friend WithEvents BearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    439. Friend WithEvents cmPositionen As System.Windows.Forms.ContextMenuStrip
    440. Friend WithEvents BearbeitenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
    441. Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
    442. Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
    443. Friend WithEvents cmsTasks As System.Windows.Forms.ContextMenuStrip
    444. Friend WithEvents BearbeitenToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
    445. Friend WithEvents btnKunden As System.Windows.Forms.Button
    446. Friend WithEvents TaskStartMeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    447. Friend WithEvents TaskFertigMeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    448. Friend WithEvents ZurücksetztenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    449. Friend WithEvents DatumAbHierVerschiebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    450. Friend WithEvents Label1 As System.Windows.Forms.Label
    451. Friend WithEvents tbSuchen As System.Windows.Forms.TextBox
    452. Friend WithEvents Label2 As System.Windows.Forms.Label
    453. Friend WithEvents pb As System.Windows.Forms.ProgressBar
    454. Friend WithEvents lb As System.Windows.Forms.Label
    456. End Class


    Die Konstruktoren stehen doch in der Designer.vb oder nicht?

    wooodl schrieb:

    Designer:
    Immer noch nicht.
    Teste das an einem neuen leeren Projekt.
    Es fehlen wohl Ressourcen.
    Specke das Projekt ab.
    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!

Facebook
Telefonspende