接上讲:
中讲已经完成了主程序的设计,这一讲说一下其它功能按钮的实现和一些小细节;
一、功能按钮:
1 '显示按钮 2 Private Sub CommandButton2_Click() 3 Application.Visible = True 4 End Sub 5 '隐藏按钮 --防止不小心点击,直接隐藏工作表 6 Private Sub CommandButton3_Click() 7 Application.Visible = FalseUserForm1.Show 8 End Sub 9 '退出不保存按钮 10 Private Sub CommandButton4_Click() 11 Application.Quit 12 ThisWorkbook.Close False 13 End Sub
二、通常我们在打开这个表格的时候,只希望显示采集窗口,而不显示工作表
所以我们可以直接在workbook_open事件中加入以下代码:
1 Private Sub Workbook_Open() 2 Application.Visible = False 3 UserForm1.Show vbModeless 4 End Sub
三、提示音模块
我们在VBE环境下直接插入模块并写入以下代码:
1 Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long 2 '错误提示音 3 Sub errorsec() 4 PlaySound ThisWorkbook.Path + "\error.wav", 0&, &H1 5 End Sub 6 '通过提示音 7 Sub pass() 8 PlaySound ThisWorkbook.Path + "\pass.wav", 0&, &H1 9 End Sub 10 '其它提示音 11 Sub other() 12 PlaySound ThisWorkbook.Path + "\other.wav", 0&, &H1 13 End Sub
当然,要使用这些提示音效;我们必须在此excel文件存放的同目录(文件夹)中存放同名的wav声音文件;
这样在程序调用的时候,就可以直接调用了;
如此,整个退货上架的程序就设计完成了;如果还想加入某些小功能;可以再酌情添加,不再赘述。