vb2008

打开一个文件并返回所在路径

memoriesoff — Thu, 20 Jan 2011 09:25:55 +0000

' 打开一个文件并返回所在路径 Dim OpenFileDialog1 As New OpenFileDialog OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xl ..

教程

memoriesoff — Thu, 20 Jan 2011 07:33:13 +0000

DataGridView

函数

memoriesoff — Tue, 18 Jan 2011 07:09:12 +0000

text1满足条件，赋值 If Len(TextBox1.Text) = 4 Then TextBox2.Text = Replace(TextBox1.Text, 0, 9) End If

变量查询

memoriesoff — Mon, 17 Jan 2011 09:37:21 +0000

--过程 Namespace DataSet1TableAdapters Partial Class ZHSH_MV_SHOPTableAdapter Inherits System.ComponentModel.Component Public Property SelectCommand() As OracleClient.OracleCommand() Get If (Me._comma ..

获取DataGridView 控件中选中的单元格

memoriesoff — Thu, 13 Jan 2011 01:49:11 +0000

获取 DataGridView 控件中选中的单元格 '显示所指的单元格的值 'Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue If Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue <> "" Then ..

下拉框

memoriesoff — Mon, 10 Jan 2011 07:08:07 +0000

--下拉框 Dim tmp1 As String = ComboBox1.Text If tmp1 = 1 Then TextBox1.Text = "购销" & ..

判断TextBox的内容为空

memoriesoff — Mon, 10 Jan 2011 07:07:53 +0000

if(textbox1.text.trim()= " "){ //do something } else{ //do else } .... 判断一个textbox对象是否为空 if(textbox1==null) //do something

时间赋值

memoriesoff — Mon, 10 Jan 2011 07:06:40 +0000

DateTimePicker1控件，主窗口赋值 Me.DateTimePicker1.Text = System.DateTime.Now --日期返回 'TextBox1.Text = Convert.ToString(Format("yyyyMMdd", DateTimePicker1.Value)) Dim tmp0 As String &nb ..

Try...Catch...Finally 块

memoriesoff — Fri, 07 Jan 2011 03:34:49 +0000

在代码中可以使用 Try...Catch...Finally 块来处理运行时错误。您可以 Try 一段代码，如果这段代码发出异常，它将跳转到 Catch 块，然后执行 Catch 块中的代码。以上代码执行完后，执行 Finally 块中的所有代码。整个 Try...Catch...Finally ..

Select...Case 语句

memoriesoff — Fri, 07 Jan 2011 03:30:09 +0000

Dim number As Integer = 8 Select Case number Case 1 To 5 Debug.WriteLine("Between 1 and 5, inclusive") ' The following is the only Case clause that evaluates to True ..

If...Then 语句

memoriesoff — Fri, 07 Jan 2011 03:25:45 +0000

If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Monday Then MsgBox("Today is Monday!") End If Dim number, digits As Integer Dim myString As String number = 53 If number < 10 Then digits = 1 ElseIf number < 100 Then digits = 2 Else digits = 3 End If ..

For...Next 循环

memoriesoff — Fri, 07 Jan 2011 03:22:14 +0000

Dim i As Integer = 0 For i = 1 To 10 DisplayNumber(i) Next

函数创建引用

memoriesoff — Wed, 29 Dec 2010 03:40:34 +0000

' 返回当前时间 Function GetTime() As String Return CStr(Now) End Function '引用函数 MsgBox(GetTime)

dataGridView中的数据导出为excel表

memoriesoff — Mon, 20 Dec 2010 05:49:41 +0000

这个问题在百度的时候可以得到很多答案，而且还有些答案会有将导出的excel表保存到某个地方的代码。毕竟某些知识点不是永远都要死记住的。因为你要用到excel表，所以要首先在项目里添加引用哟：项目（project）-添加 ..