@H_301_0@
@H_301_0@固定窗体大小 @H_301_0@Me.FormBorderStyle = FormBorderStyle.FixedSingle保证不能通过拖动改变窗体大小。 @H_301_0@Me.MaximizeBox=false保证不能最大化窗体,Me.MinimizeBox=false不能最小化 @H_301_0@
@H_301_0@窗体关闭触发 @H_301_0@
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
@H_301_0@弹出窗口选择文件夹,并显示路径 @H_301_0@
Dim f As New FolderBrowserDialog '创建个文件夹对话框 If f.ShowDialog = DialogResult.OK Then ‘如果选择了文件夹 MsgBox( "你选择的目录是: " & f.SelectedPath) ’显示选着文件夹路径 End If@H_301_0@
@H_301_0@datagridview属性 @H_301_0@删除datagridview 选中的行 @H_301_0@DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
@H_301_0@单元格被选定时的背景色 @H_301_0@DataGridView1.CurrentRow.DefaultCellStyle.SelectionBackColor = Color.GreenYellow
@H_301_0@
@H_301_0@获取当前应用程序所在的路径
@H_301_0@AppDomain.CurrentDomain.SetupInformation.ApplicationBase
@H_301_0@
@H_301_0@取反 @H_301_0@
If Not TextBox.Text.Trim.Equals(" ") Then MessageBox.Show("!!!","温馨提示") End If
@H_301_0@键盘按键触发的事件
@H_301_0@
If e.KeyCode = Keys.Enter Then MessageBox.Show("!!!","温馨提示") End If
@H_301_0@
@H_301_0@控件的背景设成透明 @H_301_0@背景色设置为web里的透明(transparence)就可以了
@H_301_0@
@H_301_0@字符串转换成数字 @H_301_0@CType(Label.Text.Trim,Single) @H_301_0@)
@H_301_0@
@H_301_0@ShowDialog()显示模式窗体,窗体显示完了以后才能下一步。 @H_301_0@Show 显示一下立即下一步。ShowDialog(this)显示窗体 但是鼠标可以点到本程序的其他FORM上面去而ShowDialog()不能