窗体属性
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)
)
ShowDialog()显示模式窗体,窗体显示完了以后才能下一步。
Show 显示一下立即下一步。ShowDialog(this)显示窗体 但是鼠标可以点到本程序的其他FORM上面去而ShowDialog()不能
原文链接:https://www.f2er.com/vb/259998.html