Visual Basic 疑问

毛毛小子

如果我放一个Label，然后把它拉长，如果我要按button(red)然后Label里面的颜色会随着按button而变，需要写什么code进去？

forecolor ?

Super-Tomato

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

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

goodhermit95

Visual Studio 才有，或者你用
Installshield ->很贵
nullsoft install system

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

毛毛小子

问题已解决。。。。
我知道怎么弄到了。。。
就随手玩玩然后就变出来
可是要怎样才可以弄到像那种Installation一样的em0010

毛毛小子

怎样把VB的project换成setup或者是application那样丫？？？？

AhPang

我也有买Beginning ASP.NET C# 2008.看两天中间就开洞了。
2008 edition有90%都是copy 2005的。e-book还要另外给钱买的，我还以为有送e-book的cd.

goodday

原帖由 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，写得很详细我也正在读。

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

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

goodday

OT 的 rate  不要 hardcode

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

还有 over plus time
recall 的

AhPang

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算出来，才不会乱。

毛毛小子

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

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

我想问下：

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价钱