2010-3-18 13:46:47 阅读99 评论0 182010/03 Mar18
本代码由本人亲自实现。下面是部分最精彩的代码:
Private Sub txtzyh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtzyh.KeyPress
If e.KeyChar = Chr(13) Then
If rbzyh.Checked Then
2009-12-19 8:50:26 阅读273 评论0 192009/12 Dec19
在某些电脑(如某些联想家用电脑上)安装有读卡器,没有记忆卡的情况下,我的电脑中会显示一个或几个空驱动器,把电脑搞的很乱,下面我们关闭它们:
在我的电脑中依次选择“工具”、“文件夹选项”、“查看选项卡”、勾选“隐藏计算机文件夹中的空驱动器”。
2009-9-10 15:28:52 阅读100 评论0 102009/09 Sept10
2009-6-13 10:32:23 阅读66 评论1 132009/06 June13
Public Class Form2
Dim yyjk(2) As String '定义一维数组,它有三个元素,分别用来存放住院号、姓名、社会保障号
Dim tempds As New dsyyscfy
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhq.Click
If IO.File.Exists("d:\ylbx\yyjk.txt") Then
2009-6-13 10:29:46 阅读78 评论0 132009/06 June13
通过将生成配置文件,我们可以让服务器的名称、SQL SERVER的身份验证方式灵活变动!
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked Then
txtpassword0.Enabled = True