アウトルック風のナビゲーションバーでメニューの選択ができます。

VisualBasic６のJetデーターベースを使用したアプリケーションです。簡単な見積もり計算やデーターベースを参照できます。

特長

Sample　Code

/////////////////////////////////////////////////////////////////////

サンプルコードをこのまま実行しても動作しません。

Private Sub Form_Load()
Dim sKanri As String
Dim locKanri As String

Dim sKeisan As String
Dim locSyogen As String
Dim locKakaku As String
Dim locSikata As String
Dim locSuryou As String
Dim locSikyu As String
Dim locTuree As String

Dim sData As String
Dim locData As String


Height = 7845
Width = 7950
frmSide.Left = (Screen.Width - frmSide.Width) / 2
frmSide.Top = (Screen.Height - frmSide.Height) / 2


Label1.Caption = NumID
mnuFileNew.Enabled = False
mnuFilePrint.Enabled = False
tbToolBar.Buttons(TOOL_NEW).Enabled = False
tbToolBar.Buttons(TOOL_PRINT).Enabled = False
tbToolBar.Buttons(TOOL_PRINTPUREVIEW).Enabled = False

Data2.Enabled = False

pctListView.Top = 480
pctListView.Left = 1320

////////////////////////////////////////////////////////////////

ナビゲーションバーの設定

sKanri = "管理"
locKanri = "件名"
locKakaku = "価格調書"
locSyogen = "諸元表"

sKeisan = "材料図面集"
locSikata = "電車"
locSuryou = "電灯"
locSikyu = "変電"

sData = "データー"
locData = "ﾃﾞｰﾀｰﾍﾞｰｽ"
Set cScreens = New Collection
With cScreens
.Add pctListView, locKanri
.Add pctsekisan, locSikata
.Add pctsyogen, locSyogen
.Add pctkakaku, locKakaku
.Add pctsuryou, locSuryou
.Add pctsikyu, locSikyu
.Add pctData, locData
End With

/////////////////////////////////////////////////////////////////

スクリーンタグにタグセクションを設定し表示しています。

With SideBar
.AddFolder sKanri, sKanri
.Folders(sKanri).AddItem locKanri, "kanri", "kanri"
.Folders(sKanri).AddItem locKakaku, "kakaku", "kakaku"
.Folders(sKanri).AddItem locSyogen, "syogen", "syogen"
.Folders(sKanri).DefaultItem = "kanri"

.AddFolder sKeisan, sKeisan
.Folders(sKeisan).AddItem locSikata, "sikata", "sikata"
.Folders(sKeisan).AddItem locSuryou, "suryou", "suryou"
.Folders(sKeisan).AddItem locSikyu, "sikyu", "sikyu"
.Folders(sKeisan).DefaultItem = "sikata"
.AddFolder sData, sData
.Folders(sData).AddItem locData, "data", "JR"
.Folders(sData).DefaultItem = "data"
End With

Data1.DatabaseName = gsDatabase
End Sub

最終更新日 : 13/02/28