JBTALKS.CC

标题: Visual Basic 疑问 [打印本页]

作者: 毛毛小子 时间: 2009-1-11 07:32 PM
标题: Visual Basic 疑问
如果我放一个Label，然后把它拉长，如果我要按button(red)然后Label里面的颜色会随着按button而变，需要写什么code进去？

forecolor ?

作者: Super-Tomato 时间: 2009-1-11 08:36 PM

原帖由 毛毛小子 于 2009-1-11 07:32 PM 发表
如果我放一个Label，然后把它拉长，如果我要按button(red)然后Label里面的颜色会随着按button而变，需要写什么code进去？

forecolor ?

哪麼你的 properties toolbox 要改哪個才會改變顏色就哪個啊

作者: 毛毛小子 时间: 2009-1-11 09:27 PM
标题: 回复 #2 Super-Tomato 的帖子
可是我要弄得就是比如说按了button 我放红色，青色，蓝色 ,然后Label box里面会变颜色。

properties 我试过了，只可以弄得到background颜色而已

作者: goodhermit95 时间: 2009-1-11 10:46 PM
标题: 回复 #3 毛毛小子的帖子
按了按钮更换Properties

作者: 毛毛小子 时间: 2009-1-11 10:53 PM
标题: 回复 #4 goodhermit95 的帖子
可是我上网找，找到的是那种类试HTML的，不知道一不一样

安了之后不是出于RUN TIME吗？怎样可以Design？

作者: 毛毛小子 时间: 2009-1-12 12:59 AM
哈哈！！
我已经做出来了~~原来很简单而已~~

Public Class ColourLabel1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.BackColor = Color.Red
End Sub
End Class

作者: Super-Tomato 时间: 2009-1-12 02:19 AM

原帖由 毛毛小子 于 2009-1-12 12:59 AM 发表
哈哈！！
我已经做出来了~~原来很简单而已~~

Public Class ColourLabel1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
...

所以樓主該了解到屬性的重要性吧, 只要掌握好最基本的 IDE 屬性, 這些簡單的東西一下就可以做到了

作者: 毛毛小子 时间: 2009-1-12 02:33 AM
标题: 回复 #7 Super-Tomato 的帖子
对！！
起初我还以为你在骗我呢！！真的是对不起！！
说真的，因为我才刚学VB.NET，在课堂上，问老师，老师不能回答我的问题，我直接不会掉~~我问code要怎样写，她在玩电脑=="
不过现在我自己学到了之后，反而觉得容易了许多，连练习题我都已经全部弄好了

好高兴~~

你有msn吗？我想向大大请教em0001

作者: 毛毛小子 时间: 2009-1-17 10:49 PM
我想请教下:如果我在class下面Dim userinput1 As Double了之后我在button1那里写

（我是要两个textbox，然后让user放两个号码然后可以加减乘除）

Valresult1 = Val("userinput1")
      intA = Val(Label4.Text)

可是，我上网找code参考：
X = CSng(Math.Cos(100))
      Y = CSng(Math.Sin(100))

      Label4.Text = X & Y
这个又可以show出来，我就是弄不出来

作者: goodhermit95 时间: 2009-1-17 11:06 PM

可以说清楚一点吗

作者: 毛毛小子 时间: 2009-1-17 11:09 PM
标题: 回复 #10 goodhermit95 的帖子
就是我放两个textbox当作我的input，然后display在labelbox那里，可是两个号码要按button(total)才可以算，可是我就是弄不出来

val 怎样用的?

作者: goodhermit95 时间: 2009-1-17 11:47 PM
标题: 回复 #11 毛毛小子的帖子
'textbox1 as number1
'textbox2 as number2
'label1 as result

private sub button1_Click(blahblahblahblah)blahblahblah
label1.text = val(textbox1.text) + val(textbox2.text)
end sub

复制代码

或者有个方法不用val,textbox1.text * 1(我的方法，目的是不要让他1+1=11)

作者: 毛毛小子 时间: 2009-1-17 11:54 PM
标题: 回复 #12 goodhermit95 的帖子
哦~~原来val是这样用。谢谢你
可是需不需要declare num1, num2 ?

作者: Super-Tomato 时间: 2009-1-18 12:14 AM

原帖由 毛毛小子 于 2009-1-17 11:54 PM 发表
哦~~原来val是这样用。谢谢你
可是需不需要declare num1, num2 ?

沒用到當然就不必 declare 來占用記憶體位置

作者: 毛毛小子 时间: 2009-1-18 01:00 AM
标题: 回复 #14 Super-Tomato 的帖子
好吧~~我试试看，不行再来问看看

作者: goodhermit95 时间: 2009-1-18 02:29 PM

弄倒了没

作者: 毛毛小子 时间: 2009-1-18 05:43 PM
标题: 回复 #16 goodhermit95 的帖子
还没有哦~~
努力当中

作者: Anything~~! 时间: 2009-1-21 07:07 PM
借用下~~

'textbox1'
'label1'
'command button1'

private sub cmd1_click()
x = 50
y =val(txt1.text)

   if y = x then
            lbl1.caption="corret"
   elseif y <> x then
            lbl1.caption="wrong"
   end if
end sub

如果我要加多一command button，让x换成其他数字后，红色字部分也能照常动作，要用什么code？

作者: Super-Tomato 时间: 2009-1-21 10:31 PM

原帖由 Anything~~! 于 2009-1-21 07:07 PM 发表
借用下~~

如果我要加多一command button，让x换成其他数字后，红色字部分也能照常动作，要用什么code？

你該從 VB 第一課學習, 你會弄出第一個 button, 怎麼不會弄第二個??

作者: RENOzZ 时间: 2009-1-22 02:50 PM
我也正在學著～哈～用vb來做website 加油咯

作者: Anything~~! 时间: 2009-1-22 04:25 PM
标题: 回复 #19 Super-Tomato 的帖子
你误解了吧,我是说他的code

private sub cmd1_click()

x = 50
y =val(txt1.text)

   if y = x then
            lbl1.caption="corret"
   elseif y <> x then
            lbl1.caption="wrong"
   end if
end sub

这是第一个button的功能，
我要做多一个button，功能是把x的数字换掉，每按一次就会变，然后第一个button的功能可以运作

作者: KenXML 时间: 2009-1-23 04:23 PM
who cann teach me vb ??

作者: Super-Tomato 时间: 2009-1-23 05:23 PM

原帖由 Anything~~! 于 2009-1-22 04:25 PM 发表
你误解了吧,我是说他的code

private sub cmd1_click()

这是第一个button的功能，
我要做多一个button，功能是把x的数字换掉，每按一次就会变，然后第一个button的功能可以运作

那麼首先你是否學過 VB??? 你所創建的另外一個 button event 和第一個 button 的 event 有甚麼關係呢??

作者: goodhermit95 时间: 2009-1-23 09:52 PM
标题: 回复 #22 KenXML 的帖子
我要学！教教我！我要做Dota外挂！我要做3D game!

作者: Jay1515Jay 时间: 2009-1-24 11:58 PM

原帖由 KenXML 于 2009-1-23 04:23 PM 发表
who cann teach me vb ??

是给人教就会全部人都是programmer咯
要自己研究和找google d
新手不用人家教的不用很多方法
google就懂了

按这里看Google搜索技巧

[ 本帖最后由 Jay1515Jay 于 2009-1-25 12:04 AM 编辑 ]

作者: 毛毛小子 时间: 2009-1-26 08:32 PM
我想请教下：
怎样Convert celcius 去 fahrenheit

作者: goodhermit95 时间: 2009-1-26 08:39 PM
标题: 回复 #26 毛毛小子的帖子
http://www.albireo.ch/temperatureconverter/formula.htm

if isnumeric(textbox1.text) and isnumeric(textbox2.text) Then
Dim C as integer = Textbox1.Text * 10 'Textbox1.Text as C , *10 to avoid have x.5
C=5/9(F-32)
label1.text = C 'f,label1.text as output

复制代码

作者: 毛毛小子 时间: 2009-1-27 01:08 AM
标题: 回复 #27 goodhermit95 的帖子
谢谢你~
我试试看先

作者: 毛毛小子 时间: 2009-1-28 06:22 PM

Dim Ftemp, Celsius As Single
      Dim strFTemp As String
      Dim Prompt As String = "Enter a Fahrenheit temperature."
      Do
         strFTemp = InputBox(Prompt, "Fahrenheit to celcius.")
         If strFTemp <> == Then
            Ftemp = CSng(strFTemp)
            Celsius = Int((Ftemp + 40) * 5 / 9 - 40)
            MsgBox(Celsius, , "Temperature in Celcius:")
         End If
      Loop While strFTemp <> ""

If strFTemp <> == Then 这行的==那里错，我放variable在==后面也错，删掉==也错。>"<

作者: 毛毛小子 时间: 2009-1-28 06:45 PM
标题: 回复 #27 goodhermit95 的帖子
你的那个If IsNumeric(TextBox1.Text) And IsNumeric(textbox2.text) Then要不要declare的？
我declare IsNumeric as 什么什么的，不可以用。

作者: Super-Tomato 时间: 2009-1-28 07:03 PM

原帖由 毛毛小子 于 2009-1-28 06:22 PM 发表

If strFTemp == Then 这行的==那里错，我放variable在==后面也错，删掉==也错。>"

該清楚 <> 是甚麼, == 又是甚麼??
而且該怎麼應用, 意味著抄和改是沒用的

作者: 毛毛小子 时间: 2009-1-28 07:50 PM
我知道那些是什么功用。我也了解。那个已解决。
现在是这个。

userinput = TextBox1.Text
      Select Case userinput
         Case A = grade >= 75 And grade <= 100
            MsgBox("Grade A")
         Case B = grade >= 60 And grade <= 74
            MsgBox("Grade B")
         Case C = grade > 50 And grade <= 59
            MsgBox("Grade C")
         Case D = grade >= 40 And grade <= 49
            MsgBox("Grade D")
         Case Else
            MsgBox("Fail")
      End Select

结论是全部号码都是fail.....

作者: Super-Tomato 时间: 2009-1-28 08:18 PM

原帖由 毛毛小子 于 2009-1-28 07:50 PM 发表
我知道那些是什么功用。我也了解。那个已解决。
现在是这个。

结论是全部号码都是fail.....

Case 不能使用使用判斷, 真奇怪.... 怎麼現在的書籍都沒寫明用法嗎??

作者: 毛毛小子 时间: 2009-1-28 08:29 PM
标题: 回复 #33 Super-Tomato 的帖子
我没有买书yet

作者: 毛毛小子 时间: 2009-1-28 08:49 PM
番茄哥哥，我刚想到怎么弄了。

userinput = TextBox1.Text
      Select Case userinput
         Case 75 To 100
            MsgBox("Grade A")
         Case 60 To 74
            MsgBox("Grade B")
         Case 50 To 59
            MsgBox("Grade C")
         Case 40 To 49
            MsgBox("Grade D")
         Case Else
            MsgBox("Fail")
      End Select

不用放grade就可以了哦？？

作者: Super-Tomato 时间: 2009-1-28 10:24 PM

原帖由 毛毛小子 于 2009-1-28 08:29 PM 发表
我没有买书yet

沒買也可以上網按照步驟學好基礎的啊

例子:
http://www.java2s.com/Tutorial/V ... g0060__Operator.htm
http://www.java2s.com/Tutorial/V ... ctCasestructure.htm

作者: 毛毛小子 时间: 2009-1-28 10:27 PM
标题: 回复 #36 Super-Tomato 的帖子
这些网址我已经有了

作者: 毛毛小子 时间: 2009-1-28 11:01 PM
想请教下：

      'Calculate Gross Pay Rate.....
      GrossPay = WorkedHour * PayRate
      Label6.Text = WorkedHour.ToString("N")
      Label7.Text = PayRate.ToString("C")
      Label8.Text = GrossPay.ToString("C")
      'Calculate OverTime Pay Rate.....
      If WorkedHour > 35 & WorkedHour < 60 Then
         OTPay = (WorkedHour - 35) * (PayRate) * (1.5) + GrossPay
         MsgBox(OTPay)

这个OverTimePayRate那里的payrate*1.5需不需要另外拿出来把它算出来先？？

作者: Super-Tomato 时间: 2009-1-28 11:06 PM

原帖由 毛毛小子 于 2009-1-28 11:01 PM 发表
想请教下：

这个OverTimePayRate那里的payrate*1.5需不需要另外拿出来把它算出来先？？

這些和平常學的數學處理次序一樣

作者: goodhermit95 时间: 2009-1-28 11:21 PM
标题: 回复 #36 Super-Tomato 的帖子
java2s 很多 console application 一下

作者: 毛毛小子 时间: 2009-1-28 11:45 PM
标题: 回复 #39 Super-Tomato 的帖子
我弄到了^^

作者: 毛毛小子 时间: 2009-2-3 01:16 AM
我想问下：比如说：

If number < 10 Then
         MsgBox("True")
      ElseIf number >= 10 Then
         MsgBox("False")
      Else
         MsgBox(" Please Enter Again")
      End If

为什么我的elseif和else不能function的em0010"

作者: Super-Tomato 时间: 2009-2-3 02:25 AM

原帖由 毛毛小子 于 2009-2-3 01:16 AM 发表
我想问下：比如说：

为什么我的elseif和else不能function的em0010"

用法有点错误， number 在 if 和 elseif 来看是确定为数字類型，但是 else 部分应用就很奇怪
number 数字不是小于 10 就是大于等于，还哪来的 else ？？

作者: goodhermit95 时间: 2009-2-3 09:57 AM
标题: 回复 #43 Super-Tomato 的帖子
他那時還不知道 Ifthenelse的定義，問我
要怎樣吧elseif 和 else 的 code都執行而不是if而已

作者: 毛毛小子 时间: 2009-2-3 08:23 PM
标题: 回复 #44 goodhermit95 的帖子
我明白if then else 定义，只是debug时出来不是我要的结论。
所以我不耻下问

作者: Super-Tomato 时间: 2009-2-3 09:36 PM

原帖由 毛毛小子 于 2009-2-3 08:23 PM 发表
我明白if then else 定义，只是debug时出来不是我要的结论。
所以我不耻下问

片面的 coding 不知道你的問題點，而且你輸入過什么我們也都不清楚

作者: 毛毛小子 时间: 2009-2-3 10:48 PM
标题: 回复 #46 Super-Tomato 的帖子
就是我的算术方程式错误。

作者: goodday 时间: 2009-2-4 12:07 AM
最爱你的那句不耻下问

感耻不问的。。。。。。

作者: 毛毛小子 时间: 2009-2-4 01:20 AM
标题: 回复 #48 goodday 的帖子
你能帮忙我找找java，visual basic .net的书吗？不要太贵的就OK

作者: goodhermit95 时间: 2009-2-4 09:15 PM
标题: 回复 #48 goodday 的帖子
Programmer 不恥下問是問google

作者: AhPang 时间: 2009-2-5 06:23 AM
e-book 要吗？http://ebooks.tipsclub.com/index.php gooddays贴看到的，很不错有很多书。
介绍你这本http://ebooks.tipsclub.com/index.php?act=view&id=750，写得很详细我也正在读。

[ 本帖最后由 AhPang 于 2009-2-5 06:26 AM 编辑 ]

作者: goodhermit95 时间: 2009-2-8 04:46 PM

原帖由 goodday 于 2009-2-4 12:07 AM 发表
最爱你的那句不耻下问

感耻不问的。。。。。。

我也是被炸到了，

子贡问曰：孔文子何以谓之文也？子曰：敏而好学，不耻下问，是以谓之文也！

所以变成……
毛毛小文子！哈哈哈

作者: 毛毛小子 时间: 2009-2-17 03:52 AM

所以变成……
毛毛小文子！哈哈哈

=="，我无言......

我想问下：

ElseIf PayPerHour <= 25 And (WorkHour <= 60 And WorkHour >= 36) Then
OTPay = ((PayPerHour - 35) * PayPerHour) * 1.5
MsgBox("Your Over Time Pay is = +" & OTPay)

这里面除了什么问题？就是我要的是workhour >35 到 60 是算OT价钱

作者: AhPang 时间: 2009-2-17 10:42 AM
Dim OTPay As Single
      Dim PayPerHour As Integer
      Dim WorkHour As Integer
      Dim TotalClaimHour As Integer

      If TextBox1.Text >= 35 Then
         WorkHour = TextBox1.Text
      Else
         MsgBox("Working hours must be greater than 35")
         Exit Sub
      End If

      PayPerHour = 25

      TotalClaimHour = WorkHour - 35

      If (TotalClaimHour <= 25) Then
         OTPay = (TotalClaimHour * 1.5) * PayPerHour
         MsgBox("Your overtime pay is: " & OTPay.ToString())
      ElseIf (TotalClaimHour > 25) Then
         'What u want???
      End If

PayPerHour是工钱不需要放在if
先把claim ot算出来，才不会乱。

作者: goodday 时间: 2009-2-17 02:05 PM
OT 的 rate 不要 hardcode

OT 要能跑 normal day(1.5), rest day(2.0) , off day(3.0), holiday(3.0)

还有 over plus time
recall 的

作者: goodday 时间: 2009-2-17 02:09 PM

原帖由 AhPang 于 2009-2-5 06:23 AM 发表
e-book 要吗？http://ebooks.tipsclub.com/index.php gooddays贴看到的，很不错有很多书。
介绍你这本http://ebooks.tipsclub.com/index.php?act=view&id=750，写得很详细我也正在读。

你看得我有买书
但翻到烂了

买过又。。。。
粘又。。。。

作者: AhPang 时间: 2009-2-17 03:11 PM
标题: 回复 #56 goodday 的帖子
我也有买Beginning ASP.NET C# 2008.看两天中间就开洞了。

2008 edition有90%都是copy 2005的。e-book还要另外给钱买的，我还以为有送e-book的cd.

作者: 毛毛小子 时间: 2009-2-23 08:12 PM
怎样把VB的project换成setup或者是application那样丫？？？？

作者: 毛毛小子 时间: 2009-2-23 08:16 PM
问题已解决。。。。
我知道怎么弄到了。。。
就随手玩玩然后就变出来
可是要怎样才可以弄到像那种Installation一样的em0010

作者: goodhermit95 时间: 2009-2-23 10:47 PM
标题: 回复 #59 毛毛小子的帖子
Visual Studio 才有，或者你用
Installshield ->很贵
nullsoft install system

自己写个从my.resources取出的软件
麻烦啦，GZIP CLASS

作者: Super-Tomato 时间: 2009-2-23 11:08 PM

原帖由 毛毛小子 于 2009-2-23 08:16 PM 发表
问题已解决。。。。
我知道怎么弄到了。。。
就随手玩玩然后就变出来
可是要怎样才可以弄到像那种Installation一样的em0010

网络上很多免费的安裝制作软体，可以去搜索和看看作者提供的教学使用说明就可以了

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