VB6轉成VB.NET- 藍色小舖 BlueShop

台灣最具影響力的-資訊專家社群 - 讓您成為最有價值的IT專業人才

∣登入

∣回首頁∣

線上人數
2149

會員總數：229200
接案會員：6761
文章總數：2320
討論主題：175273

登入

購買VP

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

網站/多媒體

系統/應用軟體

數位新天地

生活綜合資訊

IT職涯/認證

小舖站務區

討論區列表 >> VB.NET >> VB6轉成VB.NET

[變換順序]

[我要回覆]

VB6轉成VB.NET
價值 : 100 QP 點閱數:1573 回應數:3

點圖分享到Plurk吧!

樓主

VB新手

50	42
685	67

發送站內信

Dim red, yellow, green, gray As Single
Dim t As Integer            
Dim flash As Integer        
Dim ch As Boolean           
Private Sub Form_Load()
red = RGB(255, 0, 0)        
yellow = RGB(255, 255, 0)   
green = RGB(0, 255, 0)      
gray = RGB(170, 170, 170)   
t = 0
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()      
If ch Then
    Group1(0).FillColor = red   
    Group1(1).FillColor = gray
    Group1(2).FillColor = gray
    Group2(0).FillColor = gray
    Group2(1).FillColor = gray
    Group2(2).FillColor = green
Else                            
    Group1(0).FillColor = gray
    Group1(1).FillColor = gray
    Group1(2).FillColor = green
    Group2(0).FillColor = red
    Group2(1).FillColor = gray
    Group2(2).FillColor = gray
End If

t = t + 1
If t >= 100 Then                
    flash = 0
    Timer2.Enabled = True       
    t = 0
    Timer1.Enabled = False      
    ch = Not ch
End If
End Sub

Private Sub Timer2_Timer()      
flash = flash + 1
If Int(flash / 2) = flash / 2 Then  
   NewColor = green
Else
    NewColor = gray
End If
If ch Then                          
   Group1(2).FillColor = NewColor
   Else
   Group2(2).FillColor = NewColor
End If
If flash = 11 Then                  
    Group1(1).FillColor = yellow
    Group2(1).FillColor = yellow
End If
If flash > 11 Then
    t = 0
    Timer1.Enabled = True
    flash = 0
    Timer2.Enabled = False
    
End If

End Sub

請問這個VB6的程式碼該怎麼轉成VB.NET...
沒學過VB所以不清楚
希望可以幫幫忙~感恩~

本篇文章發表於2009-04-27 18:57

什麼是iT Power資訊報

2010年藍色小舖認證專家風雲榜完全名單

1樓不錯的參考蹂躪	Visual Studio.NET有升級功能找一下吧 http://tinyurl.com/cp9bzx 本篇文章回覆於2009-04-27 19:39 --未登入的會員無法查看對方簽名檔--
2樓不錯的參考動不了	你用VB.NET 用檔案=>開啟專案==>選vb6的專案他就會幫你升級了本篇文章回覆於2009-04-27 20:00 --未登入的會員無法查看對方簽名檔--
3樓最有價值解答小歐ou	To VB新手您的問題可以分三個部份回答您 1. 您的程式應該是從阿國的教學筆記裡面的交通號誌燈模擬，裡面有個 Group 不知您是否知道是什麼控制項? ANS: Shape 2. 您是否可以透過 VB6 將程式 run 起來，這是我 run 的程式，ANS: 您下載這個 VB6 的程式 run 看看 http://140.116.84.24:8080/DISK/WinForm/WinFormBRD20090427185653S6U.rar 3. 您希望能轉成 VB.NET，但是 VB.NET 並沒有 Shape元件，除非安裝 Microsoft Visual Basic Power Packs 3.0，您可以參考此篇文章安裝 http://www.dotblogs.com.tw/chou/archive/2009/04/01/7795.aspx 最後，您可以透過 VB6 升級 VB.NET 的方式來做升級，您先試著做做看吧本篇文章回覆於2009-04-27 22:54 --未登入的會員無法查看對方簽名檔--

[變換順序]

回覆

如要回應,請先登入.

1樓不錯的參考蹂躪	Visual Studio.NET有升級功能找一下吧 http://tinyurl.com/cp9bzx 本篇文章回覆於2009-04-27 19:39 --未登入的會員無法查看對方簽名檔--
2樓不錯的參考動不了	你用VB.NET 用檔案=>開啟專案==>選vb6的專案他就會幫你升級了本篇文章回覆於2009-04-27 20:00 --未登入的會員無法查看對方簽名檔--
3樓最有價值解答小歐ou	To VB新手您的問題可以分三個部份回答您 1. 您的程式應該是從阿國的教學筆記裡面的交通號誌燈模擬，裡面有個 Group 不知您是否知道是什麼控制項? ANS: Shape 2. 您是否可以透過 VB6 將程式 run 起來，這是我 run 的程式，ANS: 您下載這個 VB6 的程式 run 看看 http://140.116.84.24:8080/DISK/WinForm/WinFormBRD20090427185653S6U.rar 3. 您希望能轉成 VB.NET，但是 VB.NET 並沒有 Shape元件，除非安裝 Microsoft Visual Basic Power Packs 3.0，您可以參考此篇文章安裝 http://www.dotblogs.com.tw/chou/archive/2009/04/01/7795.aspx 最後，您可以透過 VB6 升級 VB.NET 的方式來做升級，您先試著做做看吧本篇文章回覆於2009-04-27 22:54 --未登入的會員無法查看對方簽名檔--