vbnet程序,vbnet程序设计第二版清华大学出版社

vb.net做一个程序，求教

1，窗体上使用容器控件比如：Panel，在容器控件里添加文本框，用来显示滚动的号码。

成都创新互联成立于2013年，我们提供高端重庆网站建设公司、成都网站制作公司、成都网站设计、网站定制、成都营销网站建设、小程序开发、微信公众号开发、成都网站推广服务，提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地，为OPP胶袋企业提供源源不断的流量和订单咨询。

2，添加一个Timer控件，用来不断改变上述文本框的Top属性，实现不断向上滚动的动态效果。

3，使用系统的随机函数，生成所想要的适当位数的随机数，单击按钮，停止滚动，显示随机数。

4，用数组保存产生的随机数，再次停止，与已经产生的保存在数组里的随机进行比较，如果重复，就重新生成随机数，直到不重复。

编写一个VB.NET程序

Private Sub Form_Click()

Text1.Text = 8 * 3 * 6 \ 2

Text2.Text = 7 2 Or 4 9

End Sub

Private Sub Form_Load()

Label1.Caption = "8*3*6\2"

Label2.Caption = "72or49"

Text1.Text = ""

Text2.Text = ""

End Sub

只举了1和7其他的可以类比

vb.net是什么

VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即

程序集

。

VB.net 程序编写

Function ULCase(ByVal value As String) As String

Dim s As String = ""

For Each i As Char In value

s = IIf(Char.IsLower(i), Char.ToUpper(i), Char.ToLower(i))

Return s

End Function

textbox1.text=ULCase(textbox1.text)

就行了.类似楼上,用的内置方法判断大小写

能得到数据的方法常用 InputBox ,TextBox

inputBox 用法

Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String

功能: 在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

参数:

Prompt: 必选的 String 表达式，作为消息显示在对话框中。Prompt 的最大长度大约为 1024 个字符，具体取决于所用字符的宽度。如果 Prompt 包含多行内容，则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车/换行符组合 (Chr(13) Chr(10)) 来分隔各行。

Title: 可选。显示在对话框标题栏中的 String 表达式。如果省略 Title，则标题栏中显示应用程序名称。

DefaultResponse: 可选的 String 表达式。如果未提供其他输入，则作为默认响应显示在文本框中。如果省略 DefaultResponse，则显示的文本框为空。

XPos: 可选。数值表达式，指定屏幕左边缘与对话框左边缘之间的距离（以缇为单位）。如果省略 XPos，则对话框水平居中。

YPos: 可选。数值表达式，指定屏幕顶部与对话框上边缘之间的距离（以缇为单位）。如果省略 YPos，则对话框垂直定位在屏幕向下大约三分之一处。

返回值:

在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

代码:

Dim KC() As String = {"语文", "数学", "英语", "物理", "化学"}

Dim MyTable As New Hashtable

For Each i As String In KC

MyTable.Add(i, Val(InputBox("请输入""" i """ 的成绩:", "成绩输入", "0")))

Dim sum As Single

For Each i As DictionaryEntry In MyTable

sum += i.Value

Dim Pf As String = IIf(sum 450 OrElse _

(MyTable(KC(0)) 95 AndAlso MyTable(KC(1)) 95 AndAlso MyTable(KC(2)) 95 AndAlso MyTable(KC(3)) 80 AndAlso MyTable(KC(4)) 80) OrElse _

(MyTable(KC(0)) 85 AndAlso MyTable(KC(1)) 85 AndAlso MyTable(KC(2)) 85 AndAlso MyTable(KC(3)) 85 AndAlso MyTable(KC(4)) 85), "优秀", "可以")

MsgBox(Pf)

VB.net窗体程序如何让cmd调用？

VB.NET 里面会有一个main方法表示函数的入口

main方法的参数就是命令行传给它的

shutdown.exe能直接调用是因为你的环境变量有C盘的windows目录

你只要在你程序的输出目录(一般为bin)里面打开命令行输入程序名称.exe就可以直接执行你的窗体

如果你要调试输入命令的效果,你打开你项目的属性,找到调试里面的命令行参数,在里面输入测试参数就能在你main函数里面看到结果了

那如果你想打开任何命令行都可以执行你的窗体程序,那你把你程序的安装目录设置为环境变量,这样就可以直接执行这个命令了

vb net只运行一个程序

方法一：通过Diagnostics.Process.GetProcessesByName函数来检测程序是否已经启动

Imports System.Windows.Forms

Module Module1

Sub Main()

'检测多重启动

If Diagnostics.Process.GetProcessesByName( _

Diagnostics.Process.GetCurrentProcess.ProcessName).Length 1 Then

MessageBox.Show("已经一个实例的本程序正在运行。")

Return

End If

Application.Run(New Form())

End Sub

End Module

不过这个方法有个缺点，如果用户改了下exe的名字就检测不到了，所以更好的方法如下

方法2：使用Mutex

Imports System.Windows.Forms

Module Module1

Sub Main()

Dim createdNew As Boolean

' 创建mutex

Dim mutex As System.Threading.Mutex = _

New System.Threading.Mutex(True, "YourAppName", createdNew)

If createdNew = False Then

MessageBox.Show("已经一个实例的本程序正在运行。")

Return

End If

Application.Run(New Form())

' 释放mutex

mutex.ReleaseMutex()

End Sub

End Module

名称栏目：vbnet程序,vbnet程序设计第二版清华大学出版社
文章转载：https://www.cdcxhl.com/article44/hsgeee.html

成都网站建设公司_创新互联，为您提供网站内链、网站设计、小程序开发、外贸建站、网站收录、网站制作

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容