回复: vb2008
#6 Try...Catch...Finally 块 [memoriesoff 01-07 11:34]
在代码中可以使用 Try...Catch...Finally 块来处理运行时错误。您可以 Try 一段代码，如果这段代码发出异常，它将跳转到 Catch 块，然后执行 Catch 块中的代码。以上代码执行完后，执行 Finally 块中的所有代码。整个 Try...Catch...Finally 块由 End Try 语句结束。
下面的示例阐释了如何使用每一个块。
Try
  ' Code here attempts to do something.
Catch
  ' If an error occurs, code here will run.
Finally
  ' Code in this block will always run.
End Try
        Try
            Dim aNumber As Double = CDbl(TextBox1.Text)
            MsgBox("You entered the number " & aNumber)
        Catch
            MsgBox("Please enter a number.")
        Finally
            MsgBox("Why not try it again?")
        End Try

#7 时间赋值 [memoriesoff 01-10 15:06]
DateTimePicker1控件，主窗口赋值
Me.DateTimePicker1.Text = System.DateTime.Now
--日期返回
'TextBox1.Text = Convert.ToString(Format("yyyyMMdd", DateTimePicker1.Value))
Dim tmp0 As String
If DateTimePicker1.Value.Day < 10 Then
tmp0 = (0 & DateTimePicker1.Value.Day)
Else
tmp0 = DateTimePicker1.Value.Day
End If
TextBox1.Text = Year(DateTimePicker1.Value) & Month(DateTimePicker1.Value) & tmp0
#8 判断TextBox的内容为空 [memoriesoff 01-10 15:07]
if(textbox1.text.trim()= " "){
//do something
}
else{
//do else
}
....
判断一个textbox对象是否为空
if(textbox1==null)
//do something
#9 下拉框 [memoriesoff 01-10 15:08]
--下拉框
Dim tmp1 As String = ComboBox1.Text
If tmp1 = 1 Then
TextBox1.Text = "购销"
Else
TextBox1.Text = "代销"
End If
#10 获取DataGridView 控件中选中的单元格 [memoriesoff 01-13 09:49]
获取 DataGridView 控件中选中的单元格
        '显示所指的单元格的值
        'Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue
        If Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue <> "" Then
            Form5.Show()
            Form5.ZHSH_MV_SHOPTableAdapter.FillBy(Form5.DataSet1.ZHSH_MV_SHOP, Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue)
        Else
            Form5.Hide()
        End If

<< 1 2 3 >> (2/3)

回复 发表
主题 版块

返回 首页
登录

PHPWind V7.5 SP2