Imports System.Drawing Imports System.Windows.Forms Imports System.Data.OleDb Public Class LibrarySystemForm Dim con As New OleDb.OleDbConnection Dim da As OleDb.OleDbDataAdapter Dim cmd As OleDbCommand Private Sub welcome_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dbprovider As String = "PROVIDER=Microsoft.ACE.OleDb.12.0;" Dim dbsource As String = "DATA SOURCE = CUULibDB.mdb.accdb" con.ConnectionString = dbprovider & dbsource con.Open() End Sub Private Sub MyTabs() Me.TabControl1 = New TabControl() Me.TabPage1 = New TabPage() Me.TabPage2 = New TabPage() Me.TabControl1.Controls.AddRange(New Control() {Me.TabPage1, Me.TabPage2}) Me.TabControl1.Padding = New Point(15, 10) Me.TabControl1.Location = New Point(35, 25) Me.TabControl1.Size = New Size(220, 220) ' Selects tabPage2 using SelectedTab. Me.TabControl1.SelectedTab = TabPage2 Me.TabPage1.Text = "supplierForm" Me.TabPage2.Text = "tabPage2" Me.Size = New Size(300, 300) Me.Controls.AddRange(New Control() {Me.TabControl1}) End Sub Public Sub tab() MyTabs() End Sub Shared Sub Main() Application.Run(New supplierForm()) End Sub Private Sub ToolStripContainer1_ContentPanel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripContainer1.ContentPanel.Load End Sub Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)