JBTALKS.CC

标题: 所有关于我对vb code的疑问都会在此写下...请大家留意... [打印本页]

作者: 电脑@白痴 时间: 2008-7-26 09:46 PM
标题: 所有关于我对vb code的疑问都会在此写下...请大家留意...
要怎样才可以做到 window XP 里的 calculate...
谁有那个code...
界面不用..
只需要code罢了...

作者: goodhermit95 时间: 2008-7-26 09:58 PM
标题: 回复 #1 电脑@白痴的帖子
windows 的使用 C++ 写的
这个……
Private Sub Plus_Click (...splitted...click
Dim aa as new textbox ‘设 aa = textbox
textbox1.text = aa.text 'textbox1.text = aa
' Windows API，前面懒惰宣告
If vbkeydownenter then 'If KeyDownEnter Then
aa.text + textbox1.text '+
End Sub

作者: 电脑@白痴 时间: 2008-7-26 10:11 PM
标题: 回复 #2 goodhermit95 的帖子
看不动.............

作者: 电脑@白痴 时间: 2008-7-26 10:30 PM
新问题...
如果我要在一个限制的号码组里
就像 60~70
要怎样打?
p/s:据我所知是要用到case 的

作者: goodhermit95 时间: 2008-7-26 10:32 PM
标题: 回复 #4 电脑@白痴的帖子
umm?你要拿来做什么？
不过我会rdm
Int (rdm(60~70))

作者: 电脑@白痴 时间: 2008-7-26 10:39 PM
标题: 回复 #5 goodhermit95 的帖子
我要做一个y有关等级的program...

作者: goodhermit95 时间: 2008-7-26 10:58 PM
标题: 回复 #6 电脑@白痴的帖子
我是说你要用限制，要用在什么地方

作者: 电脑@白痴 时间: 2008-7-26 11:02 PM
标题: 回复 #7 goodhermit95 的帖子
做平均分数的.....

作者: 电脑@白痴 时间: 2008-7-26 11:04 PM
就是如果平均分数为 65
then 65 属于 60~70 之间
then rank = B-
大概是酱...

作者: goodhermit95 时间: 2008-7-27 09:30 AM
标题: 回复 #9 电脑@白痴的帖子
输入分数框 = textbox1
显示分数 = label1.text
探测按钮 = Button1
Private Sub button1_click()
  If textbox1.text = Int(80~100) Then
label1.text = "Your Rank Is -A-"
  ElseIf textbox1.text = Int(60~79) Then
Label1.text = "Your Rank Is -B-"
  ElseIf textbox1.text = Int(40~59) Then
Label1.text = "Your Rank Is -C-"
  ElseIf textbox1.text = Int(20~39) Then
Label1.text = "Your Rank Is -D-" & vbCrLf & "You didn't pass the exam!"
  ElseIf textbox1.text = Int(0~19) Then
Label1.text = "Your Rank Is -E-" & vbCrLf & "Please do more revision!"
  ElseIf textbox1.text = "100" Then
Label1.text = "Wow!You get the full marks!"
  ElseIf textbox1.text = "0" Then
Label1.text = "Nothing to say..."
  ElseIf textbox1.text =>100 Then
Label1.text = "Huh?Marks higher then 100?"
  Else
Label1.text = "Only Number Allowed!"
  End If
End Sub

作者: goodhermit95 时间: 2008-7-27 09:31 AM
标题: 回复 #10 goodhermit95 的帖子
如果要 A+A - B+ B- ,依此类推~

作者: jaklim 时间: 2008-7-27 12:09 PM
提示: 作者被禁止或删除内容自动屏蔽

作者: 电脑@白痴 时间: 2008-8-1 08:33 PM
哇...刚刚考完试啊...
累啊...
不过谢谢你们提供资料...

作者: 电脑@白痴 时间: 2008-8-1 08:41 PM
普通的除...
如果txt1 和 txt2 的 text 放空...
就代表无限大的意思对吧...
可是酱会 overflow...
有什么解决方法吗...

作者: 电脑@白痴 时间: 2008-8-1 08:47 PM

原帖由 goodhermit95 于 2008-7-27 09:30 AM 发表
输入分数框 = textbox1
显示分数 = label1.text
探测按钮 = Button1
Private Sub button1_click()
If textbox1.text = Int(80~100) Then
label1.text = "Your Rank Is -A-"
ElseIf textbox1.tex ...

这个code 有问题...
syntax error~

作者: 电脑@白痴 时间: 2008-8-1 08:53 PM
标题: 回复 #11 goodhermit95 的帖子
还有你的code有严重问题...
应该是 label1.caption 而不是 label1.text...
还有在 int(80~100)...
它讲有问题...

作者: Anything~~! 时间: 2008-8-1 09:30 PM
输入分数框 = textbox1
显示分数 = label1.caption
探测按钮 = Button1
Private Sub button1_click()
x=val(textbox1.text)
  If 100>=x>=80 Then
label1.caption= "Your Rank Is -A-"
  ElseIf 79>=x>=60 Then
Label1.caption = "Your Rank Is -B-"
  ElseIf 59>=x>=40 Then
Label1.caption = "Your Rank Is -C-"
  ElseIf 39>=x=20 Then
Label1.caption = "Your Rank Is -D-"
  ElseIf 19>=x>=0 Then
Label1.caption = "Your Rank Is -E-"

  End If
End Sub

作者: 电脑@白痴 时间: 2008-8-4 04:38 PM
有什么办法可以按一下 textbox
然后 textbox 的字就 highlight 起来吗？

作者: goodday 时间: 2008-8-4 05:05 PM

原帖由 goodhermit95 于 2008-7-27 09:30 AM 发表
输入分数框 = textbox1
显示分数 = label1.text
探测按钮 = Button1
Private Sub button1_click()
If textbox1.text = Int(80~100) Then
label1.text = "Your Rank Is -A-"
ElseIf textbox1.tex ...

你的码永远不会到 100 full mark

在第一个已出去了

作者: goodday 时间: 2008-8-4 05:08 PM

原帖由 电脑@白痴 于 2008-8-1 08:53 PM 发表
还有你的code有严重问题...
应该是 label1.caption 而不是 label1.text...
还有在 int(80~100)...
它讲有问题...

他是 vb.net 的你是vb6 的
哈哈你很勤力叻有试的

作者: 电脑@白痴 时间: 2008-8-4 05:11 PM
标题: 回复 #20 goodday 的帖子
没有办法嘛...
有用到就要试吗...

作者: 电脑@白痴 时间: 2008-8-4 05:13 PM
昨天超闲的...
去 jusco 的 haris 竟然没有卖 vb6.0 的书...
咳....

作者: goodday 时间: 2008-8-4 05:15 PM
学vb 2008 啦~~~~ 有前途啦

作者: 电脑@白痴 时间: 2008-8-4 05:18 PM
标题: 回复 #23 goodday 的帖子
可是学校教的是 vb6.0
还有一个最重要的就是学校就只有 vb6.0...

作者: goodday 时间: 2008-8-4 05:20 PM
宽中生~~~~~~~
老师是java 吧？？？？

em0077

作者: 电脑@白痴 时间: 2008-8-4 05:21 PM
再加上昨天也只看到 vb 2005 和 vb.net 罢了...

作者: goodday 时间: 2008-8-4 05:23 PM
2005 和 2008 兼容啦同一个 runtime 的 assembly

作者: 电脑@白痴 时间: 2008-8-4 05:41 PM
有什么办法可以按一下 textbox
然后 textbox 的字就 highlight 起来吗？

goodday 如果你在这里就回答一下吧...

作者: 电脑@白痴 时间: 2008-8-4 09:19 PM
懂的人也可以帮我解答
谢谢

作者: 电脑@白痴 时间: 2008-8-4 09:43 PM
有谁懂要怎样把一个 picture 慢慢变大
征求 code

作者: goodhermit95 时间: 2008-8-6 09:19 PM
标题: 回复 #29 电脑@白痴的帖子
Private Sub textbox1_Click 'while pressed textbox1
textbox1.seltext = "The text you want to highlight" 'highlight the text
图片
Dim a as new timer
a.interval = 1000 ' 1000=1 sec
image.height = image.height + 20 ' + image hight
image.width = image.width + 20 ' + image width

[ 本帖最后由 goodhermit95 于 2008-8-6 09:38 PM 编辑 ]

作者: 电脑@白痴 时间: 2008-8-7 08:39 PM
标题: 回复 #31 goodhermit95 的帖子
第一个用不到
第二个看不懂
可以说得个明白一点？

作者: 电脑@白痴 时间: 2008-8-7 09:08 PM
ehh 我想知道只要 tab 了后 textbox 的字就 clear 的 code...
请知道的人告诉我
谢谢

作者: goodhermit95 时间: 2008-8-7 09:41 PM
标题: 回复 #33 电脑@白痴的帖子
ummm

If textbox1.seltext then
textbox1.clear

作者: Anything~~! 时间: 2008-8-7 09:58 PM
标题: 回复 #34 goodhermit95 的帖子

.seltext

是什么意思?

作者: goodhermit95 时间: 2008-8-8 09:33 AM
标题: 回复 #35 Anything~~! 的帖子
highlight 的意思

作者: 电脑@白痴 时间: 2008-8-27 08:30 PM
ascii 里有 tab 这个 code 吗？

作者: goodhermit95 时间: 2008-8-28 10:53 PM
标题: 回复 #37 电脑@白痴的帖子
ascii是什么来的？

作者: 电脑@白痴 时间: 2008-9-11 09:11 PM
哇~~~
好久没来了~~~
突然有问题要问~~~
有没有在 desktop 的时候还可以使用的 code~~~
像 end , load 和其他的~~~
有的话清告诉我谢谢~~~
对我有用到~~~
最近很烦啦~~~
要选科系了~~~
怕以后选错系后悔~~~
选理科还是电好呢~~~
理科比较多出路~~~
电有 programing (vb6) 而且还上三年~~~
对我又好处啦~~
请大家给点意见吧~
好像离题了厚~~不要紧啦对我很重要~~
请大家见谅厚~~

作者: goodhermit95 时间: 2008-9-12 09:56 AM
标题: 回复 #39 电脑@白痴的帖子
有没有在 desktop 的时候还可以使用的 code
听不懂

刚开始是这样的，上手了很轻松的

作者: maple迷 时间: 2008-9-13 08:44 PM
LZ，对不起借用你的帖子，不懂做么不能开帖

我用的是Visual Basic6.0

有人用吗？可不可以给我一些Game的Code参考？

我今天才开始罢了em0013 （会作一些罢了）

作者: goodhermit95 时间: 2008-9-13 11:39 PM
标题: 回复 #41 maple迷的帖子
你要玩game hack
玩hack难上加难，再加上maple 有 gameguard

做game，一个人做不出的
我说过我要做maple story 3d，可是发现太多东西要弄做不完

作者: maple迷 时间: 2008-9-14 11:14 AM

原帖由 goodhermit95 于 2008-9-13 11:39 PM 发表
你要玩game hack
玩hack难上加难，再加上maple 有 gameguard

做game，一个人做不出的
我说过我要做maple story 3d，可是发现太多东西要弄做不完

你误会我了！我没有要作Hack

我只是要一些小游戏的Code（很简单的那种）

我想看了后自己改一些，不是作Hack啊！（我没有这样坏啦）

作者: goodhermit95 时间: 2008-9-16 10:50 PM
标题: 回复 #43 maple迷的帖子
你
先说我没有要跟你吵的意思

你以为那么简单啊~~

Maple是用C++写的
你vb再厉害都没有用
C++要读学院的啊~
我看过人家玩hack
一个magic claw 打 4 下 99999EXP
就是改C++的啊~

作者: goodday 时间: 2008-9-17 05:59 PM
呵呵　有人要用来打ｇａｍｅ咯
努力啦

作者: ★笨☆天使 时间: 2008-9-17 06:40 PM

原帖由 goodhermit95 于 2008-9-16 10:50 PM 发表
你
先说我没有要跟你吵的意思

你以为那么简单啊~~
Maple是用C++写的
你vb再厉害都没有用
C++要读学院的啊~
我看过人家玩hack
一个magic claw 打 4 下 99999EXP
就是改C++的啊~

有这种事?那online game 怎样玩下去?

作者: goodhermit95 时间: 2008-9-17 10:16 PM
标题: 回复 #46 ★笨☆天使的帖子
你要怎样都可以……
就只是
你要会C++才能
C++要读学院的

作者: 电脑@白痴 时间: 2008-9-25 08:00 PM
我想问一下
vb6.0 有没有用来 del 电脑的东西的 code?
我看书很像有看到，可是不懂是不是6.0 的

作者: 电脑@白痴 时间: 2008-9-25 08:44 PM
我学到了"kill"
但是我不动要怎样打pathname
可以教教吗？
我懂pathname是什么
但是我click 的时候就显示file not found
为什么？？？

作者: 电脑@白痴 时间: 2008-9-25 08:47 PM
psps忘记打 .什么了

作者: goodhermit95 时间: 2008-9-25 09:44 PM
标题: 回复 #49 电脑@白痴的帖子
Kill("C:\text.txt")
不可以？
VB.NET
System.IO.File.Delete("C:\text.txt")

欢迎光临 JBTALKS.CC (https://jbtalks.my/)