史萊姆論壇

史萊姆論壇 (http://forum.slime.com.tw/)
-   程式語言討論區 (http://forum.slime.com.tw/f76.html)
-   -   各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣) (http://forum.slime.com.tw/thread248259.html)

kppne0931 2009-05-26 06:11 PM
各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣)
 
我想要問的是按下Command 然後就跑出一個小視窗這部分我想像記得有一個較Msbox的東西可以用....


但是我現在 要用的是 按下按鈕 出現以下文字

連線中。
連線中。。
連線中。。。


目的是讓他一個一個句點加上去...(每1句大概都間隔0.5秒)
以上大概跑２次。。。


２次跑完就出現連線成功　

以上不需要真正連接SQL 只要字面上的就可以了....



請求解答...

劍痞憶秋年 2009-05-26 09:58 PM
MSGBOX 可能無法達到你要的,因為要按一下才會再換下一個新的訊息(無法直接 控制/改變 訊息內容)
所以咧,我就用表單 + TIMER 來試做你要的，不過看不到最後的 連線成功
試看看如何
PHP 語法:
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   1200
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

Private Sub Command1_Click()
  With Form2
    '清空計數器
    .Times = 0
    .Show
  End With
End Sub 
PHP 語法:
VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   3360
      Top             =   2160
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Tag             =   "連線中。"
      Top             =   960
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private intTimes As Integer

Private Sub Form_Initialize()
  intTimes = 0
  Label1.Caption = Label1.Tag
End Sub

Public Property Get Times() As Integer
    Times = intTimes
End Property

Public Property Let Times(ByVal vNewValue As Integer)
     intTimes = vNewValue
End Property

Private Sub Form_Load()
    Label1.Caption = Label1.Tag
End Sub

Private Sub Timer1_Timer()
    '
    If intTimes = 2 Then
       Label1.Caption = "連線成功"
       Unload Me
    End If
    Label1.Caption = Label1.Caption & "。"
    intTimes = intTimes + 1
End Sub 

kppne0931 2009-05-26 10:32 PM
引用:
作者: 劍痞憶秋年 (文章 2158828)
MSGBOX 可能無法達到你要的,因為要按一下才會再換下一個新的訊息(無法直接 控制/改變 訊息內容)
所以咧,我就用表單 + TIMER 來試做你要的，不過看不到最後的 連線成功
試看看如何
PHP 語法:
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   1200
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

Private Sub Command1_Click()
  With Form2
    '清空計數器
    .Times = 0
    .Show
  End With
End Sub 
PHP 語法:
VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   3360
      Top             =   2160
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Tag             =   "連線中。"
      Top             =   960
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private intTimes As Integer

Private Sub Form_Initialize()
  intTimes = 0
  Label1.Caption = Label1.Tag
End Sub

Public Property Get Times() As Integer
    Times = intTimes
End Property

Public Property Let Times(ByVal vNewValue As Integer)
     intTimes = vNewValue
End Property

Private Sub Form_Load()
    Label1.Caption = Label1.Tag
End Sub

Private Sub Timer1_Timer()
    '
    If intTimes = 2 Then
       Label1.Caption = "連線成功"
       Unload Me
    End If
    Label1.Caption = Label1.Caption & "。"
    intTimes = intTimes + 1
End Sub 


感覺上...很複雜耶....不然大大你看一下我用的不知道要如何改...


Private Sub Command3_Click()
Dim pw As String
pw = "kenc77996"

If Text4.Text <> pw Then

Label15.Caption = "帳號或密碼錯誤！"
Else


pw = "ken33664"

If Text5.Text <> pw Then

Label15.Caption = "帳號或密碼錯誤！"
Else
Label15.Caption = "登入成功！感謝您使用本程式"
Frame1.Enabled = True
Frame2.Enabled = True
Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True
Check4.Enabled = True
Check5.Enabled = True
Check6.Enabled = True
Check7.Enabled = True
Check8.Enabled = True
Check9.Enabled = True
Check10.Enabled = True
Check11.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
End If
End If

End Sub


以上片段...按下Command出現連線中...一樣跑出句號...然後再檢測PW 如果正確 則顯示登入成功 如果錯誤 則顯示帳號或密碼錯誤 請問如果這樣要如何改...

劍痞憶秋年 2009-05-26 10:46 PM
這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/run，不過觀念絕對是對的
PHP 語法:
Dim intTimes as Integer

Private Sub Timer1_Timer() 
    ' 
    If intTimes >= 2  and Frame1.Enabled = True Then 
       Label1.Caption = "連線成功" 
       Timer1.Enabled = False
    End If 
    Label1.Caption = Label1.Caption & "。" 
    intTimes = intTimes + 1 
End Sub  

Private Sub Form_Load() 
    Label1.Caption = "連線中。"
    intTimes = 0
End Sub 

Private Sub Command3_Click()
Dim pw As String

Label1.Caption = "連線中。"
intTimes = 0
Timer1.Enabled = True

pw = "kenc77996"
If Text4.Text <> pw Then
  Label15.Caption = "帳號或密碼錯誤！"
Else
  pw = "ken33664"

  If Text5.Text <> pw Then

     Label15.Caption = "帳號或密碼錯誤！"
  Else
     Label15.Caption = "登入成功！感謝您使用本程式"
     Frame1.Enabled = True
     Frame2.Enabled = True
     Check1.Enabled = True
     Check2.Enabled = True
     Check3.Enabled = True
     Check4.Enabled = True
     Check5.Enabled = True
     Check6.Enabled = True
     Check7.Enabled = True
     Check8.Enabled = True
     Check9.Enabled = True
     Check10.Enabled = True
     Check11.Enabled = True
     Text1.Enabled = True
     Text2.Enabled = True
     Command1.Enabled = True
     Command2.Enabled = True
    End If
  End If

End Sub 

kppne0931 2009-05-27 06:18 AM
引用:
作者: 劍痞憶秋年 (文章 2158852)
這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/run，不過觀念絕對是對的
PHP 語法:
Dim intTimes as Integer

Private Sub Timer1_Timer() 
    ' 
    If intTimes >= 2  and Frame1.Enabled = True Then 
       Label1.Caption = "連線成功" 
       Timer1.Enabled = False
    End If 
    Label1.Caption = Label1.Caption & "。" 
    intTimes = intTimes + 1 
End Sub  

Private Sub Form_Load() 
    Label1.Caption = "連線中。"
    intTimes = 0
End Sub 

Private Sub Command3_Click()
Dim pw As String

Label1.Caption = "連線中。"
intTimes = 0
Timer1.Enabled = True

pw = "kenc77996"
If Text4.Text <> pw Then
  Label15.Caption = "帳號或密碼錯誤！"
Else
  pw = "ken33664"

  If Text5.Text <> pw Then

     Label15.Caption = "帳號或密碼錯誤！"
  Else
     Label15.Caption = "登入成功！感謝您使用本程式"
     Frame1.Enabled = True
     Frame2.Enabled = True
     Check1.Enabled = True
     Check2.Enabled = True
     Check3.Enabled = True
     Check4.Enabled = True
     Check5.Enabled = True
     Check6.Enabled = True
     Check7.Enabled = True
     Check8.Enabled = True
     Check9.Enabled = True
     Check10.Enabled = True
     Check11.Enabled = True
     Text1.Enabled = True
     Text2.Enabled = True
     Command1.Enabled = True
     Command2.Enabled = True
    End If
  End If

End Sub 
剛剛去試了一下.....沒效果　不知道哪裡出問題 不知道能不能改成 用小視窗表示 ：連線中.... (每個間隔0.5秒)帳號或密碼錯誤(此時實小視窗面出現Command用來關閉視窗　）　　　　還有連線成功也是一樣。。。

mini 2009-05-27 03:20 PM
如圖設定
http://xs839.xs.to/xs839/09223/msg871.jpg

至於密碼設計請自行加入

補充:
請在 Form2 的
語法:
Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
   
End Sub
裡面補一句
Command1.Visible = False

kppne0931 2009-05-27 06:36 PM
引用:
作者: mini (文章 2159223)
如圖設定
http://xs839.xs.to/xs839/09223/msg871.jpg

至於密碼設計請自行加入

補充:
請在 Form2 的
語法:
Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
   
End Sub
裡面補一句
Command1.Visible = False

線在已經可以顯示連線中了...但是...檢測密碼我不知道要如何改上去...(如果密碼錯誤就在Form2 顯示連線失敗)還有 顯示連線完成時 按下Command vb跑出 "此處需要物件" 為啥會這樣...

kppne0931 2009-05-28 06:48 AM
現在...就只剩下檢測密碼部份要如何改.......拜託各位大大幫助一下吧～

mini 2009-05-28 02:44 PM
http://touch.moehome.jp/up_ssize/dow...958.rar/attach

按下網頁的http://xs839.xs.to/xs839/09224/download372.png 按鈕(旁邊填 mini)即可下載

重點是新增一個模組
並在模組裡使用一個全域變數 sPW
如此一來sPW就可在不同的 Form裡共用

kppne0931 2009-05-28 11:06 PM
引用:
作者: mini (文章 2159532)
http://touch.moehome.jp/up_ssize/dow...958.rar/attach

按下網頁的http://xs839.xs.to/xs839/09224/download372.png 按鈕(旁邊填 mini)即可下載

重點是新增一個模組
並在模組裡使用一個全域變數 sPW
如此一來sPW就可在不同的 Form裡共用

用了之後...發現 已經可以檢測了文字顯示部分也正常 但是 我想要用成檢測2個TEXT(帳密)同時檢測 不知道有沒有辦法

mini 2009-05-29 09:42 AM
引用:
作者: kppne0931 (文章 2159703)
用了之後...發現 已經可以檢測了文字顯示部分也正常 但是 我想要用成檢測2個TEXT(帳密)同時檢測 不知道有沒有辦法
自己在 Form1裡加相關 物件就可以了啊
並在 Form2的 Timer1_Timer事件裡加入比對程式碼
即可
比如
If Form1.Text1 <> sPW Then
改成
If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then

kppne0931 2009-05-29 10:12 AM
引用:
作者: mini (文章 2159775)
自己在 Form1裡加相關 物件就可以了啊
並在 Form2的 Timer1_Timer事件裡加入比對程式碼
即可
比如
If Form1.Text1 <> sPW Then
改成
If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then
那情問FORM1的設置是這樣嗎?
Private Sub Form_Activate()
sPW = "ken33664"
sID = "kenc77996"
End Sub

kppne0931 2009-05-29 10:29 PM
沒人願意幫助我媽?@@...

Living 2009-05-30 01:30 AM
引用:
作者: kppne0931 (文章 2159968)
沒人願意幫助我媽?@@...
不是很確定你需要的是什麼

你是想要輸入之後檢查兩組帳號與密碼

如果輸入與任何一組相同就登入?

是不是這樣?

如果是這樣的話

你可以改成

Form1.Text1 <> sPW1 & Form1.Text1 <> sPW2 Then

kppne0931 2009-05-30 03:53 AM
引用:
作者: Living (文章 2160004)
不是很確定你需要的是什麼

你是想要輸入之後檢查兩組帳號與密碼

如果輸入與任何一組相同就登入?

是不是這樣?

如果是這樣的話

你可以改成

Form1.Text1 <> sPW1 & Form1.Text1 <> sPW2 Then

我需要的是同時檢測2組....

mini 2009-05-30 10:24 AM
引用:
作者: kppne0931 (文章 2159786)
那情問FORM1的設置是這樣嗎?
Private Sub Form_Activate()
sPW = "ken33664"
sID = "kenc77996"
End Sub
是的～

建議你試了有問題再整理好發問...(畢竟論壇不同於即時通)

VB基本上是很好除錯運行的開發軟體
請善用 F8鍵(步進執行) 及 中斷點 及 開啟"監看視窗"
來了解你所寫的程式

kppne0931 2009-05-31 12:12 PM
引用:
作者: mini (文章 2160128)
是的～

建議你試了有問題再整理好發問...(畢竟論壇不同於即時通)

VB基本上是很好除錯運行的開發軟體
請善用 F8鍵(步進執行) 及 中斷點 及 開啟"監看視窗"
來了解你所寫的程式

但是我用了 TEXT1檢測SPW是OK 但是TEXT2就像是無效一樣...

mini 2009-05-31 02:19 PM
引用:
作者: kppne0931 (文章 2160533)
但是我用了 TEXT1檢測SPW是OK 但是TEXT2就像是無效一樣...
也可改成
A例)
語法:
    If Form1.Text1 = sPW And Form1.Text2 = sID Then
            Label1.Caption = "連線成功"
    Else
            Label1.Caption = "連線失敗(帳號或密碼有誤)"
    End If
B例)
不過照理說
語法:
    If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then
            Label1.Caption = "連線失敗(帳號或密碼有誤)"
    Else
            Label1.Caption = "連線成功"
    End If
B例 與上面 A例 是同樣的邏輯答案

kppne0931 2009-05-31 05:38 PM
引用:
作者: mini (文章 2160586)
也可改成
A例)
語法:
    If Form1.Text1 = sPW And Form1.Text2 = sID Then
            Label1.Caption = "連線成功"
    Else
            Label1.Caption = "連線失敗(帳號或密碼有誤)"
    End If
B例)
不過照理說
語法:
    If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then
            Label1.Caption = "連線失敗(帳號或密碼有誤)"
    Else
            Label1.Caption = "連線成功"
    End If
B例 與上面 A例 是同樣的邏輯答案
這是Form2的程式碼

PHP 語法:
Private Sub Command1_Click()

    Unload Form2
    With Form1
        .Text4.Enabled = True
        .Command1.Enabled = True
        
        .Text4.SetFocus
        .Text4.SelStart = 0
        .Text4.SelLength = Len(.Text1.Text)
    End With
    

End Sub

Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
    Command1.Visible = False
    
End Sub

Private Sub Timer1_Timer()
Static i As Integer
    
    If i > 5 Then
        Timer1.Enabled = False
        
If Form1.Text4 = sPW And Form1.Text5 = sID Then
            Label1.Caption = "連線失敗(帳號或密碼有誤)"
        Else
            Label1.Caption = "連線成功"
          Form1.Frame1.Enabled = True
Form1.Frame2.Enabled = True
Form1.Check1.Enabled = True
Form1.Check2.Enabled = True
Form1.Check3.Enabled = True
Form1.Check4.Enabled = True
Form1.Check5.Enabled = True
Form1.Check6.Enabled = True
Form1.Check7.Enabled = True
Form1.Check8.Enabled = True
Form1.Check9.Enabled = True
Form1.Check10.Enabled = True
Form1.Check11.Enabled = True
Form1.Text1.Enabled = True
Form1.Text2.Enabled = True
Form1.Command1.Enabled = True
Form1.Command2.Enabled = True
Form2.Command1.Visible = True
        End If
        
        i = 0
        Exit Sub
    End If
    
    i = i + 1
    If i = 1 Or i = 4 Then
        Label1.Caption = "連線中。"
    Else
        Label1.Caption = Label1.Caption & "。"
    End If
    
End Sub 
以下是Form1的程式碼
PHP 語法:
Private Sub Command3_Click()


    Text4.Enabled = False
    Command3.Enabled = False
    Form2.Show
    Form2.Move Form1.Left, Form1.Top - Form2.Height

End Sub

Private Sub Form_Activate()
    sPW = "kenc77996"
    sID = "ken33664"
End Sub 
以上程式碼是以text4 和text5 下去編寫

發現 text4 和text5 隨便打 都會顯示連線成功...幫檢查一下卸卸...

kppne0931 2009-05-31 08:12 PM
各位大大幫助我一下....

mini 2009-05-31 08:25 PM
語法:
If Form1.Text4 = sPW And Form1.Text5 = sID Then
    Label1.Caption = "連線失敗(帳號或密碼有誤)"
搞錯了吧... :on_77:

請再仔細看一下你就能發現

kppne0931 2009-05-31 08:29 PM
引用:
作者: mini (文章 2160674)
語法:
If Form1.Text4 = sPW And Form1.Text5 = sID Then
    Label1.Caption = "連線失敗(帳號或密碼有誤)"
搞錯了吧... :on_77:

請再仔細看一下你就能發現
我已經發現我打相反了....但是現在 只能檢測Text4會正常 text5似乎無法檢測...:on_22::on_74::on_14:

kppne0931 2009-05-31 10:40 PM
大大幫忙一下......

cwvdavid 2009-06-01 10:48 AM
你所謂的【但是現在 只能檢測Text4會正常 text5似乎無法檢測...】是指什麼?

說一下你輸入帳號密碼的情況吧...
Text4輸入kenc77996, Text5輸入123．．結果是什麼？
Text4輸入ken33664, Text5輸入123．．結果是什麼？
Text4輸入234, Text5輸入kenc77996．．結果是什麼？
Text4輸入234, Text5輸入ken33664．．結果是什麼？

kppne0931 2009-06-01 10:29 PM
引用:
作者: cwvdavid (文章 2160872)
你所謂的【但是現在 只能檢測Text4會正常 text5似乎無法檢測...】是指什麼?

說一下你輸入帳號密碼的情況吧...
Text4輸入kenc77996, Text5輸入123．．結果是什麼？
Text4輸入ken33664, Text5輸入123．．結果是什麼？
Text4輸入234, Text5輸入kenc77996．．結果是什麼？
Text4輸入234, Text5輸入ken33664．．結果是什麼？

不太懂大大給的情況...
我說明一下好了
我需要的事在Text4輸入kenc77996Text5輸入ken33664 按下按鈕(因為忘記名稱^_^所以打中文).....2個部分"同時"檢測如果2個都正確 則顯示連線成功 如果有"其中一個"錯誤則顯示"連線失敗(帳號密碼錯誤)"


我需要的是這樣 還有.....以上情況請配合第9樓與第18樓配合觀看

Living 2009-06-01 10:33 PM
引用:
作者: kppne0931 (文章 2161019)
不太懂大大給的情況...
我說明一下好了
我需要的事在Text4輸入kenc77996Text5輸入ken33664 按下按鈕(因為忘記名稱^_^所以打中文).....2個部分"同時"檢測如果2個都正確 則顯示連線成功 如果有"其中一個"錯誤則顯示"連線失敗(帳號密碼錯誤)"


我需要的是這樣 還有.....以上情況請配合第9樓與第18樓配合觀看
你問問題還要大家回頭爬樓呀:on_59::on_59:

你可以用http://forum.slime.com.tw/images/buttons/multiquote_off.gif來引用多個回文內容

繼續加油喔

kppne0931 2009-06-01 10:38 PM
引用:
作者: Living (文章 2161020)
你問問題還要大家回頭爬樓呀:on_59::on_59:

你可以用http://forum.slime.com.tw/images/buttons/multiquote_off.gif來引用多個回文內容

繼續加油喔
喔....抱歉 我沒發現有這個可以用ˊˋ:on_14:

cwvdavid 2009-06-02 12:15 PM
也就是說, 你的希望是...

Text4輸入kenc77996, Text5輸入ken33664, 按下按鈕後出現 [連線成功]
==================================
我的問題來了...

(假設你目前的程式...就是我在樓上看到的那些...)

那麼...

1. Text4輸入kenc77996, Text5輸入123．．按下按鈕後出現什麼訊息？
2. Text4輸入ken33664, Text5輸入123．．按下按鈕後出現什麼訊息？
3. Text4輸入234, Text5輸入kenc77996．．按下按鈕後出現什麼訊息？
4. Text4輸入234, Text5輸入ken33664．．按下按鈕後出現什麼訊息？
5. Text4輸入kenc77996, Text5輸入ken33664．．按下按鈕後出現什麼訊息？
6. Text4輸入ken33664, Text5輸入kenc77996．．按下按鈕後出現什麼訊息？

請告訴我, 當你依照上面6個方式輸入帳號密碼之後, 按下按鈕分別出現了什麼訊息...

kppne0931 2009-06-02 07:15 PM
引用:
作者: cwvdavid (文章 2161235)
也就是說, 你的希望是...

Text4輸入kenc77996, Text5輸入ken33664, 按下按鈕後出現 [連線成功]
==================================
我的問題來了...

(假設你目前的程式...就是我在樓上看到的那些...)

那麼...

1. Text4輸入kenc77996, Text5輸入123．．按下按鈕後出現什麼訊息？
2. Text4輸入ken33664, Text5輸入123．．按下按鈕後出現什麼訊息？
3. Text4輸入234, Text5輸入kenc77996．．按下按鈕後出現什麼訊息？
4. Text4輸入234, Text5輸入ken33664．．按下按鈕後出現什麼訊息？
5. Text4輸入kenc77996, Text5輸入ken33664．．按下按鈕後出現什麼訊息？
6. Text4輸入ken33664, Text5輸入kenc77996．．按下按鈕後出現什麼訊息？

請告訴我, 當你依照上面6個方式輸入帳號密碼之後, 按下按鈕分別出現了什麼訊息...

1. 顯示 連線失敗(帳號或密碼有誤)
2. 顯示 連線失敗(帳號或密碼有誤)
3. 顯示 連線失敗(帳號或密碼有誤)
4. 顯示 連線失敗(帳號或密碼有誤)
5. 顯示 連線失敗(帳號或密碼有誤)
6. 顯示 連線失敗(帳號或密碼有誤)

我自己看了 也很無言....:on_69:

cwvdavid 2009-06-02 08:23 PM
請把你的

Label1.Caption = "連線失敗(帳號或密碼有誤)"

改成...

Label1.Caption = "連線失敗(你輸入的[" & Form1.Text4 & "]跟[" & sPW & "]可能不同)(你輸入的[" & Form1.Text5 & "]跟[" & sID & "]可能不同)"

然後再做一次...看看那6次的結果是什麼...

kppne0931 2009-06-02 09:05 PM
引用:
作者: cwvdavid (文章 2161401)
請把你的

Label1.Caption = "連線失敗(帳號或密碼有誤)"

改成...

Label1.Caption = "連線失敗(你輸入的[" & Form1.Text4 & "]跟[" & sPW & "]可能不同)(你輸入的[" & Form1.Text5 & "]跟[" & sID & "]可能不同)"

然後再做一次...看看那6次的結果是什麼...
1. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[123]跟[]可能不同
2. 連線失敗(你輸入的[ken33664]跟[ken33664]可能不同)(你輸入的[123]跟[]可能不同
3. 連線失敗(你輸入的[234]跟[ken33664]可能不同)(你輸入的[kenc77996]跟[]可能不同
4. 連線失敗(你輸入的[234]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
5. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
6. 連線失敗(你輸入的[ken33664]跟[kenc77996]可能不同)(你輸入的[kenc77996]跟[]可能不同


就這樣....感覺上sID 沒有很正常的樣子...

劍痞憶秋年 2009-06-02 11:47 PM
引用:
作者: kppne0931 (文章 2161417)
1. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[123]跟[]可能不同
2. 連線失敗(你輸入的[ken33664]跟[ken33664]可能不同)(你輸入的[123]跟[]可能不同
3. 連線失敗(你輸入的[234]跟[ken33664]可能不同)(你輸入的[kenc77996]跟[]可能不同
4. 連線失敗(你輸入的[234]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
5. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
6. 連線失敗(你輸入的[ken33664]跟[kenc77996]可能不同)(你輸入的[kenc77996]跟[]可能不同
就這樣....感覺上sID 沒有很正常的樣子...
你說的是第二個問題，雖然我不知道問題在哪(因為我試過你的程式碼不會有 sID 的問題，建議你把 sID = "ken33664")，maybe 是大小寫的問題，但建議你在每個表單 都加上 Option Explicit　
再加一個 Module1.bas
語法:
Option Explicit

Public sPW As String
Public sID As String
第一個問題 版主已經點過一次囉 , 我再重提一下，下面的 Logic 有很嚴重的問題，和當初寫給你的不一樣
引用:
作者: mini (文章 2160674)
語法:
If Form1.Text4 = sPW And Form1.Text5 = sID Then
    Label1.Caption = "連線失敗(帳號或密碼有誤)"
搞錯了吧... :on_77:

請再仔細看一下你就能發現
這個你只說，但沒修正程式碼，害我又重提一次
----------------------------
另外點出一個很不建議的寫法(Form1.Text4 ＝＝＞(建議改成)　Form1.Text4.Text)

cwvdavid 2009-06-03 11:55 AM
麻煩你把 目前 你的程式碼都重新貼上來一次

Form1, Form2, 都要重新貼上來一次(我們需要看到你目前實際的程式碼才能判斷)

mini 2009-06-03 03:46 PM
個人左思右想功能邏輯很簡單的說
kppne0931 卻一直得到怪答案
想說會不會你沒有把
Public sID As String 宣告在 通用模組裡(請如 劍痞憶秋年 打上)

因為很多初學者不習慣在各相關 form程式上頭加上 Option Explicit
而使變數變成未宣告也可運行
如sID 未在模組裡宣告
那他就會成為 Form1的本地變數
如又再 Form2用到
則其實 sID是Form2 的變數
兩者是不同的

所以此時 sID永遠為 ""空字串
你不管輸入 kenc77996 還是什麼
他永遠是錯誤邏輯

cwvdavid 2009-06-03 04:20 PM
引用:
作者: mini (文章 2161713)
個人左思右想功能邏輯很簡單的說
kppne0931 卻一直得到怪答案
想說會不會你沒有把
Public sID As String 宣告在 通用模組裡(請如 劍痞憶秋年 打上)

因為很多初學者不習慣在各相關 form程式上頭加上 Option Explicit
而使變數變成未宣告也可運行
如sID 未在模組裡宣告
那他就會成為 Form1的本地變數
如又再 Form2用到
則其實 sID是Form2 的變數
兩者是不同的

所以此時 sID永遠為 ""空字串
你不管輸入 kenc77996 還是什麼
他永遠是錯誤邏輯

所以，只要看到樓主的原始碼，就會有真相了:on_72:

kppne0931 2009-06-03 05:59 PM
引用:
作者: 劍痞憶秋年 (文章 2161478)
你說的是第二個問題，雖然我不知道問題在哪(因為我試過你的程式碼不會有 sID 的問題，建議你把 sID = "ken33664")，maybe 是大小寫的問題，但建議你在每個表單 都加上 Option Explicit　
再加一個 Module1.bas
語法:
Option Explicit

Public sPW As String
Public sID As String
第一個問題 版主已經點過一次囉 , 我再重提一下，下面的 Logic 有很嚴重的問題，和當初寫給你的不一樣

這個你只說，但沒修正程式碼，害我又重提一次
----------------------------
另外點出一個很不建議的寫法(Form1.Text4 ＝＝＞(建議改成)　Form1.Text4.Text)
引用:
作者: cwvdavid (文章 2161617)
麻煩你把 目前 你的程式碼都重新貼上來一次

Form1, Form2, 都要重新貼上來一次(我們需要看到你目前實際的程式碼才能判斷)
引用:
作者: mini (文章 2161713)
個人左思右想功能邏輯很簡單的說
kppne0931 卻一直得到怪答案
想說會不會你沒有把
Public sID As String 宣告在 通用模組裡(請如 劍痞憶秋年 打上)

因為很多初學者不習慣在各相關 form程式上頭加上 Option Explicit
而使變數變成未宣告也可運行
如sID 未在模組裡宣告
那他就會成為 Form1的本地變數
如又再 Form2用到
則其實 sID是Form2 的變數
兩者是不同的

所以此時 sID永遠為 ""空字串
你不管輸入 kenc77996 還是什麼
他永遠是錯誤邏輯
引用:
作者: cwvdavid (文章 2161716)
所以，只要看到樓主的原始碼，就會有真相了:on_72:
...感謝大大 我已經在模組上加入Public sID As String 已經可以正常檢測了...


我在順便問一下....我之前有看過有人把視窗 改成VISTA 請問要怎樣使用..

cwvdavid 2009-06-03 08:55 PM
在vista上面執行, 就是vista的視窗了.....:on_14:

kppne0931 2009-06-04 11:12 AM
引用:
作者: cwvdavid (文章 2161771)
在vista上面執行, 就是vista的視窗了.....:on_14:

我要XP的拉.....

mini 2009-06-04 03:18 PM
VB編程實現XP風格
http://www.newasp.net/tech/program/24430.html
(如是在 Vista裡跑出 Vista窗體風格，那又是別的技巧)

至於用 windows XP 執行VB APP跑出 Vista style
那就比較麻煩了
找了很多很多都是要會員才能下載

找了個
他是用畫的方式實現
http://touch.moehome.jp/up_ssize/dow...113.rar/attach
按下網頁的http://xs839.xs.to/xs839/09224/download372.png 按鈕(旁邊填 mini)即可下載

這個範例原本是對岸寫的註解
個人將其繁體化後重新上傳
(原出至 : http://www.pudn.com/downloads85/sour...ail325810.html )

===================

當然方法絕不是只有以上
只是個人就不會想去搞個
"用 windows XP 執行VB APP跑出 Vista style" 自找麻煩的咚咚
因為
現在的MS是推廣VB .Net
用VB 6去模擬那些東西
不如直接改學 VB .Net還來的快 ...

kppne0931 2009-06-04 06:21 PM
引用:
作者: mini (文章 2161986)
VB編程實現XP風格
http://www.newasp.net/tech/program/24430.html
(如是在 Vista裡跑出 Vista窗體風格，那又是別的技巧)

至於用 windows XP 執行VB APP跑出 Vista style
那就比較麻煩了
找了很多很多都是要會員才能下載

找了個
他是用畫的方式實現
http://touch.moehome.jp/up_ssize/dow...113.rar/attach
按下網頁的http://xs839.xs.to/xs839/09224/download372.png 按鈕(旁邊填 mini)即可下載

這個範例原本是對岸寫的註解
個人將其繁體化後重新上傳
(原出至 : http://www.pudn.com/downloads85/sour...ail325810.html )

===================

當然方法絕不是只有以上
只是個人就不會想去搞個
"用 windows XP 執行VB APP跑出 Vista style" 自找麻煩的咚咚
因為
現在的MS是推廣VB .Net
用VB 6去模擬那些東西
不如直接改學 VB .Net還來的快 ...
剛剛下載下載去看了一下範本的Form程式碼 眼睛真的會脫窗= =....:on_03:


所有時間均為台北時間。現在的時間是 06:10 AM。

Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.

『服務條款』

* 有問題不知道該怎麼解決嗎？請聯絡本站的系統管理員 *


SEO by vBSEO 3.6.1