正文
vb.net不操作时锁定的简单介绍
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET如何锁定label.text的值不变
你的问题很模糊
1，你要实现的是label.text的text值不变还是什么意思？
如果是怕程序运行的时候可能出现程序修改text值问题，你可以加一个判断，或者用一个timer定时确认text是否被修改过了
Public Class Form1
Private Sub Timer1_Tick()
‘判断label的text值是否改变了
If Label1.Text = "label的text值" Then
Else
Label1.Text = "label的text值"
End If
End Sub
Private Sub Form1_Load()
Label1.Text = "label的text值"’给Label1.Text赋新值
Timer1.Interval = "你定义的时间"
Timer1.Start()
End Sub
End Class
当然，其实这个是没有这样复杂的，
Label1的TextChanged事件就可以处理
呵呵，你自己根据需要选用吧！
相关问答
Q1: vb 当程序运行60分钟后无键盘或鼠标动作时，如何实现程序自动锁定？
Dim IOInfo As LASTINPUTINFO'
Dim lngBak As LongDim lngEnd As LongDim lngCnt As Long'Private Sub Form_Load() lngEnd = 3600 '设置停止时间，单位为秒，你可以先设置60秒查看效果 Timer1.Interval = 1000
Timer1.Enabled = True
End Sub'Private Sub Timer1_Timer() IOInfo.cbSize = Len ( IOInfo)
Call GetLastInputInfo (IOInfo) If lngBak IOInfo.dwTime Then '鼠标键盘有操作时计数器清0
lngBak = IOInfo.dwTime
lngCnt = 0
End If
'
lngCnt = lngCnt + 1 ' If lngCnt = lngEnd Then
Timer1.Enabled = False
MsgBox "到了1小时后自动停止计时器", 64
End If
End Sub
Q2: 在.net里如何锁定窗体，拖动标题栏，使其不移动？
实现方法如下：
1.引用命名空间
using System.Runtime.InteropServices;
2.声明如下变量：
public class Form1 : System.Windows.Forms.Form
{
//.....
[DllImport("user32.dll",EntryPoint="GetSystemMenu")]
extern static IntPtr GetSystemMenu(IntPtr hWnd, IntPtr bRevert);
[DllImport("user32.dll",EntryPoint="RemoveMenu")]
extern static int RemoveMenu(IntPtr hMenu, int nPos, int flags);
//.....
}
3.在Form的构造函数里加入代码
public Form1()
{
const int MF_BYPOSITION = 0x0400;
const int MF_REMOVE = 0x1000;
FormBorderStyle = FormBorderStyle.FixedSingle;
MaximizeBox = false;
MinimizeBox = false;
RemoveMenu(GetSystemMenu(Handle,IntPtr.Zero),1,MF_BYPOSITION |MF_REMOVE);
}
就OK啦
Q3: VB.NET中如何锁定窗体的大小。让最大化按钮点不了。
VisualStudio 2010中的vb.net
锁定边框：
代码输入Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
或者在属性列表里设置FormBorderStyle 为Fixed3D
最大化不可用：
代码输入Me.MaximizeBox = False
或者在属性列表里设置MaximizeBox 为 False
