窗体属性
1)、ControlBox = true (true代表显示关闭按钮,false代表隐藏)
2)、MaxButton = false (false代表隐藏最大化,true代表显示)
3)、MinButton = false (flase代表隐藏最小化,true代表显示)
4)、BorderStyle = 1 - Fixed (代表不能通过拉动来改变窗体的大小)
固定窗体大小
Me.FormBorderStyle = FormBorderStyle.FixedSingle保证不能通过拖动改变窗体大小。
Me.MaximizeBox=false保证不能最大化窗体,Me.MinimizeBox=false不能最小化
窗体关闭触发
Private Sub Main_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim yn As String
yn = MsgBox("确定退出程序", vbYesNo, "温馨提示")
If yn = vbYes Then
e.Cancel = False
Me.Dispose()
Else
e.Cancel = True
End If
End Sub
弹出窗口选择文件夹,并显示路径
Dim f As New FolderBrowserDialog '创建个文件夹对话框
If f.ShowDialog = DialogResult.OK Then ‘如果选择了文件夹
MsgBox( "你选择的目录是: " & f.SelectedPath) ’显示选着文件夹路径
End If
datagridview属性
删除datagridview 选中的行
DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
单元格被选定时的背景色
DataGridView1.CurrentRow.DefaultCellStyle.SelectionBackColor = Color.GreenYellow
获取当前应用程序所在的路径
AppDomain.CurrentDomain.SetupInformation.ApplicationBase
取反
If Not TextBox.Text.Trim.Equals(" ") Then
MessageBox.Show("!!!", "温馨提示")
End If
键盘按键触发的事件
If e.KeyCode = Keys.Enter Then
MessageBox.Show("!!!", "温馨提示")
End If
控件的背景设成透明
背景色设置为web里的透明(transparence)就可以了
字符串转换成数字
CType(Label.Text.Trim, Single)
CType(Label.Text.Trim,Double)
ShowDialog()显示模式窗体,窗体显示完了以后才能下一步。
Show 显示一下立即下一步。ShowDialog(this)显示窗体 但是鼠标可以点到本程序的其他FORM上面去而ShowDialog()不能