vb编写小程序,vb小程序制作简单

用VB 编写 a小程序马頔，VB小程序编写th/(Mn)？我想用VB编一个小的程序。用VB制作小程序见附例程序，vbHideEndSub .VB设计一个简单的小程序变量定义曲面变量名X，给我做一个小程序，如果是用来设置网络参数的话，如果不是实际设置的话，调用很多api函数会容易很多。

变量定义表面变量名x，y等。x1y1，DIM X1 Asigner private subcommand 1 _ click() button x1x 1 1me。captionx 1 end subprivatesubcommand 2 _ click() button x1x 11 me . captionx 1 end sub

如果是用来设置网络参数的话，如果不是实际设置的话，调用很多api函数要容易得多。输入密码后有什么验证方法吗？我可以给你写这个软件...留下您的QQ号码。到时候我会发给你的。我发给你了。希望对你有帮助。我不想分。我只提供想法。楼主可以自己写。如果有人写，就给他。用vb:创建一个txt文档，里面写了批处理文件的代码负责配置ip和网关(网上可以找到很多这样的代码，我就不赘述了)。

见附例程序。为了直接看到效果，示例程序 number每秒刷新一次，可以根据需要改成自己喜欢的区间。OptionExplicitDimDDAsSingle 0 dimttasintegerprivatesubform _ Load()label 1。captiontimer 1 . interval 1000 timer 1 . enabledtruett 0 label 1 . font size 16 ddint(* Rnd 1)label 1。标题格式(DD，

Put文本组件Text1和命令组件command1。双击command1，编写以下代码:private subcommand 1 _ click()shell text 1 . text，vbhideendsub。private subcombo 1 _ Click()()()dir 1。path drive 1 . DriveEndSubPrivateSub()MsgBox()combo 1。AddItem * . txt combo 1 . AddItem * . dat combo 1 . AddItem *。jpg*.wmf*.gifcombo1.additem *。* combo1.text *。txt *。txt end sub可能不符合你的要求，但绝对有用。

6、用VB写一个小 程序

获取CPU序列号privatetypeosversioninfosizeaslingwidmajorversionaslongwidwinserver slongdwbuingnumberslongdwplatformidasslongzcsdversionasst。ring * 128 maintenancestringforpsusageendtypeprivatedeclaurefunctiongetversionexlibkernel32 aliasgetversionexa(lpVersionInformationAsOSVERSIONINFO)aslongprivatedeclaurefunctiongetcomputernamelibkernel32 aliasgetcomputernamea(byvallpbufferastring，

程序code:privatdeclarefunctionshget specialfolderlocationlibshell 32(byvalhwndownerasong，byvalnfoldersinterger，ppidlAsLong)aslongprivatdeclarefunctionshgetpathfromidlistlibshell32 aliasshgetpathfromidlista(ByValpidlAsLong，

马頔，bprivatesubcommand 1 _ click()endedsubvrivatesubform _ load()text . text visual basic程序design command 1。标题end text . left 0:text . top 0:text . width 0.5 * form 1。宽度文本高度0.5 *表格1。heightaform 1 . width command 1 . left b form 1 . height command 1 . topendsubprivatesubform _ Resize()text . left 0:text . top 0:text . width 0.5 * form 1 . width text . height 0.5 * form 1 . height command 1 . left form 1 . width command 1 . top form 1 . highbendedsub注意变量名和控件名一致。

th/(mn)？在表单中添加三个文本框、一个标签和一个按钮，不修改它们的名称，然后编写如下代码:private subcommand 1 _ click()dimhassingle、mas single、nas single、Tassinglehtext1。textmtext2，textntext3。textth/(Mn) label1，图说青蛙需要爬出一个高度为