Private Sub Form_Load()
If Editable Then
'保持Form 的缺省属性
Else
Dim oCtl As Control
For Each oCtl In MeControls
oCtlEnabled = False
Next
'可以将cmdExitEnabled = true
End If
End Sub文本框只读时颜色变灰,是因为控件的Disabledbackcolor属性值默认为(236,233,216),即灰色,只要把这个值改为(255,255,255),只读后颜色就不会变了。
Disabledbackcolor属性:指定一个失效控件的背景色。分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
在VB中如何创建只读属性的文件夹
解析:
简单点说
shell "cmdexe /c attrib c:\testtxt +r"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)