南台科技大學計算機程式及實習.pptVIP

南台科技大學計算機程式及實習 物品管理程式 機械工程系 四技車輛一乙 學號:4A015100 老師:謝慶存 功能說明 點下增加物品後在輸入物品名稱，按確定後就會顯示在方格中。 按方格中的物品之後，在案刪除物品就可以刪除所選取的物品。 附加功能 在黑框中輸入所要查詢的物品，再按確定，即可查詢到方塊中是否已輸入該物品了。 版面配置 屬性配置 程式碼 Public Class Form1 Dim item() As String = {“馬桶刷”,”馬桶清潔劑”,”馬桶蓋”} Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lstBook.Items.AddRange(item) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If lstBook.SelectedIndex = 0 Then lstBook.Items.RemoveAt(lstBook.SelectedIndex) Else MsgBox(“請先選擇要刪除物品”,, “刪除”) End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim newbook As String Do newbook = InputBox(“請輸入物品名稱:”, “新增) Loop Until Trim(newbook) lstBook.Items.Add(newbook) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim search As String lstBook.ClearSelected() search = InputBox(“請輸入物品名稱:”, “查詢) Dim returnValue As Integer returnValue = lstBook.FindStringExact(search) If returnValue = 0 Then MsgBox(“查詢物品在目錄中”, , “查詢) lstBook.SetSelected(returnValue, True) Else MsgBox(search “不在目錄中!”, , “查詢) End If End Sub End Class 程式說明 第一段是讓ListBox一開始執行程式會顯示在ListBox上的物品名稱 第二段lstBook.Items.RemoveAt(lstBook.SelectedIndex)是讓可以點選要刪除的案刪除鍵就可以刪除物品，MsgBox(“請先選擇要刪除物品”,, “刪除”)是梅點選刪除物品會跑出一個視窗顯示提醒的文字 第三段則是讓物品可以增加到ListBox裡面 第四段是可以查詢到ListBox是否有該物品If returnValue = 0 Then MsgBox(“查詢物品在目錄中”, , “查詢”) lstBook.SetSelected(returnValue, True)是讓查到LisBox裡有的時候會談出一個視窗顯示”查詢物品在目錄中”， Else MsgBox(search “不在目錄中!”, , “查詢”)則是ListBox裡沒有的話會顯示“不在目錄中!” 。 心得 自己一步一步的慢慢寫一個程式，雖然幾乎都是抄課本上的，但是一 個步驟一個步驟做也讓自己學到很多東西，上課學到的也很多的方法 Visual Basic 雖然有點難，但是只要有