扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
从来只有高分辨率下为低分辨率环境开发程序的。既然开发环境是低分辨率,那就只能利用代码初始化各个控件的位置和大小了。随测随改。
目前成都创新互联已为数千家的企业提供了网站建设、域名、网页空间、网站托管运营、企业网站设计、千山网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
有许多方法,用一个类,在这个类中写个验证方法(修改方便),或直接在程序中写一个方法。再用image标签在第一次加载程序时调用方法。
窗体初始化时,设定Windowstate= maximized.
窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽,或者使用代码初始化控件。
可以先把外层的目录新建出来,代码如下:
Dim path As String
path = "c:\text\text\txt\text1.txt"
System.IO.Directory.CreateDirectory(path.Substring(0, InStrRev(path, "\"))) '建立path这个路径的所有所需目录
System.IO.File.WriteAllText(path, "牛年快乐", System.Text.Encoding.Default)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aa As Integer = Val(TextBox1.Text)
Dim i As Integer
For i = 2 To aa
If aa Mod i = 0 Then
TextBox2.Text += i.ToString + " "
aa = aa / i
i = 2
End If
Next
End Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ss()
TextBox2.Text = ss()
End Sub
Function ss()
Randomize()
Dim a As Integer = Int(Rnd() * 100)
Return a
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox1.Text) + Val(TextBox2.Text) = Val(TextBox3.Text) Then
i += 1
Label3.Text = "正确"
Else
j += 1
Label3.Text = "错误"
End If
aa += 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ss()
TextBox2.Text = ss()
TextBox3.Text = ""
Label3.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox4.Text = "你已经答了" + aa.ToString + "题,答对" + i.ToString + "题," + "答错" + j.ToString + "题。"
End Sub
用格式转换器(格式工厂)把ico格式转换成其他可识别的格式
然后在添加
下一步(你的意思是要在界面设计中 往窗体上添加工具栏吗?)
工具箱中 ---- 菜单和工具栏 ----- MenuStrip
窗体上方出现 '请再次键入'(vs2010中) 的框框 点一下就可以放"打开"什么的了
右面属性中找到Image属性.可以更改你自己的图片了.
知道了吗?
还有疑问你就追问 ````赫赫
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流