VB中的App函数怎么用?

APP 就相当于ME的意思 这里就是指的程序本身

创新互联自2013年创立以来，公司以网站设计制作、网站设计、系统开发、网络推广、文化传媒、企业宣传、平面广告设计等为主要业务，适用行业近百种。服务企业客户数千家，涉及国内多个省份客户。拥有多年网站建设开发经验。为企业提供专业的网站建设、创意设计、宣传推广等服务。 通过专业的设计、独特的风格，为不同客户提供各种风格的特色服务。

Apath=App.Path 这句是说该程序的盘符地址 赋值给Apath

FilePath=Apath＋"\HAN.BMP" 着句是说FilePath的盘符地址就是Apath对应的的盘符地址后面加"\HAN.BMP"

Picture1.Picture=LoadPicture(FilePath) 然后再将FilePath的盘符地址对应的图片也就是HAN.BMP

载入Picture1

这么解释不晓得你看看得懂

vs2008里面有vb点虐 么？大大进来帮忙看下-_-

有vb点虐 的

你下载错了

要下载Visual Studio Team Suite，而不要下载Team System Foundation啊

下载下面这个参考资料里的第一个，Visual Studio Team Suite，这个是官网的，所以的期限，90天

不过，这个帖子时里有解除时间限制的方法啊

这个动漫女孩叫什么啊？

你好，她叫双叶杏，《偶像大师 灰姑娘女孩》中的人物。

双叶杏(ふたば　あんず/futaba anzu)：17岁却长得如同LOLI一般的重度宅女，以“当偶像后版税可以宅一辈子”的理由而成为偶像，成为偶像之后却各种偷懒，除了呆在家外没有明显爱好，有SR卡（懒惰的妖精）。

请第一时间采纳

VB高手请进

首先在Form中加入一个CommandButtion控件，在Command1上点击鼠标右键，选择复制，在窗体上点击鼠标右键，选择粘贴在窗体上粘贴出九个Command1,此时出现对话框问你要不要创建控件数组，在此选择是。然后再加入两个CommandButtion控件，一个ListBox、一个Frame、一个Label。设置窗体的Caption属性为“猜一猜”、BorderStyle为1－FixedSingle、控件数组的Captin分别为0、1、2、3、4、5、6、7、8、9，Command2的Caption为“确定"，Command3的Caption为“取消"，Frame1的Caption为“提示："，Label1的Cpation为“0A0B"。然后选择菜单编辑器编辑菜单为：游戏、新游戏、显示答案、结束游戏，她们的Name属性分别为：Game、New、View、End。好了，其余属性使用缺省的即可.

**********************************************************************

双击窗体，把打开的代码窗口中内容清空，把下面的代码插入，保存后安F5运行

以下是程序清单：

**********************************************************************

DimPcA,PcB,PcC,PcDAsInteger'电脑给出的每一位数

DimUserA,UserB,UserC,UserDAsInteger'用户输入的每一位数

DimDegreeAsInteger'用户猜了几次

DimNumAsInteger'判断用户输入次数的变量

PrivateSubForm_Load()

'程序运行行时

'初始化

Fori=0To9

Command1(i).Enabled=False

Nexti

Command2.Enabled=False

Command3.Enabled=False

View.Enabled=False

EndSub

PrivateSubNew_Click()

'开始一个新游戏时

View.Enabled=True'可以看答案

List1.Clear'清空列表框

Degree=0

'对随机数生成器做初始化

Randomize

Num=1

Label1.Caption=0＆“A"＆0＆“B"

'电脑给出的每一位数

PcA=Int(9＊Rnd)

Do

PcB=Int(9＊Rnd)

LoopWhilePcB=PcA

Do

PcC=Int(9＊Rnd)

LoopWhilePcC=PcAOrPcC=PcB

Do

PcD=Int(9＊Rnd)

LoopWhilePcD=PcAOrPcD=PcBOrPcD=PcC

Fori=0To9

Command1(i).Enabled=True

Nexti

Command2.Enabled=False

Command3.Enabled=True

EndSub

PrivateSubCommand1_Click(IndexAsInteger)

'用户输入时

'使得输入过的按钮无效

IfNum=4Then

Command1(Index).Enabled=False

EndIf

'判断用户输入了几位，如果输入了四位则确认按钮有效

IfNum=4Then

Command2.Enabled=True

EndIf

'取得用户输入

SelectCaseIndex

Case0

UserEnter(0)'调用UserEnter过程

Case1UserEnter(1)

Case2UserEnter(2)

Case3UserEnter(3)

Case4UserEnter(4)

Case5UserEnter(5)

Case6UserEnter(6)

Case7UserEnter(7)

Case8UserEnter(8)

Case9UserEnter(9)

EndSelect

EndSub

PrivateSubCommand2_Click()

'单击确定按钮时

'判断用户输入是否正确

DimA,BAsInteger

A=0

B=0

Degree=Degree＋1

IfUserA=PcAThen

A=A＋1

ElseIfUserA=PcBOrUserA=PcCOrUserA=PcDThen

B=B＋1

用VisualBASIC6.0开发猜数字小游戏EndIf

IfUserB=PcBThen

A=A＋1

ElseIfUserB=PcAOrUserB=PcCOrUserD=PcDThen

B=B＋1

EndIf

IfUserC=PcCThen

A=A＋1

ElseIfUserC=PcAOrUserC=PcBOrUserC=PcDThen

B=B＋1

EndIf

IfUserD=PcDThen

A=A＋1

ElseIfUserD=PcAOrUserD=PcBOrUserC=PcCThen

B=B＋1

EndIf

'显示提示

Label1.Caption=A＆“A"＆B＆“B"

List1.AddItemUserA＆UserB＆UserC＆UserD＆“"＆Label1.Caption

'初始化输入按钮

Command2.Enabled=False

Fori=0To9

Command1(i).Enabled=True

Nexti

Num=1

'判断输赢

IfA=4Then

MsgBox“你猜对了！"＆“你一共猜了"＆Degree＆“次"

Fori=0To9

Command1(i).Enabled=False

Nexti

Command2.Enabled=False

EndIf

EndSub

PrivateSubCommand3_Click()

'单击取消按钮时

Num=1

Fori=0To9

Command1(i).Enabled=True

Nexti

Command2.Enabled=False

EndSub

PrivateSubView_Click()

'显示答案时

MsgBox“答案是："＆PcA＆PcB＆PcC＆PcD＆“你答对了吗？"

EndSub

PrivateSubEnd_Click()

'游戏结束时

End

EndSub

SubUserEnter(i)'取得用户输入

IfNum=1Then

UserA=i

Num=Num＋1

ElseIfNum=2Then

UserB=i

Num=Num＋1

ElseIfNum=3Then

UserC=i

Num=Num＋1

ElseIfNum=4Then

UserD=i

Num=Num＋1

Else:MsgBox“四位数够了！"

EndIf

EndSub

网站名称：vb点虐 ddc属性 vbnet addhandler
URL分享：http://ybzwz.com/article/ddscpop.html