心思世界» 寫我程式 » 程式設計發問區 » VB 一問(如何close login page?)
一星高級會員
查看詳細資料
TOP
VIP
; K) O; _ ~- a2 L# P Public Class Form1 6 E2 @" w6 r t f& \) p& u) \+ C( R" E- C0 M Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click7 n& `" A4 b7 }2 w Me.Hide()) x3 Q4 ?6 ^, W# {' i' ?0 M6 f Form2.Show()' g% K& N) U; K. j! X# I# O End Sub . p3 o. d; {, n* A 4 {0 h4 N. m8 u6 l: kEnd Class! N8 a$ [$ S% C. [. O% P. s
% A' \% d- k- c; x/ a Public Class Form2/ I+ B# l; G5 u$ t& ` # ?+ p6 F5 ]( {3 [+ w+ z Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated$ j! V* V" `4 |! O2 P1 o; { Me.Label1.Text = " Hello, " & Form1.TextBox1.Text : ]; S( W9 z/ Y1 s+ X% \% Q End Sub 8 Y8 f. q1 E7 {7 E& Y" A% W# @. |5 j( d) Z Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ( u9 o$ N% K/ I H9 s( F1 f Me.Hide()* B' g+ z* g1 j4 s Form1.Show()9 g+ U3 Q; k4 [% q End Sub 7 R0 o7 a% Y. P. f; N5 O6 B+ |5 o$ P2 Q& |0 a# u, Z Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click7 r7 t' L+ Z1 J- n% D Form1.Close() 4 d3 F2 \$ }) f& s' A- g End Sub & G+ ? r7 G6 a7 K5 L+ q( TEnd Class/ }. Y7 Q+ G2 H/ R; J! ]
查看個人網站
Nok
原帖由 ivanyung 於 2008-4-25 16:44 發表 其實也不一定要將 login form close ... 可以將 login form 和要做的東西寫在一同將 form 當密碼正確時就將 userid 和 password 的 properties set 為 invisible ... 再將想顯示的內容 set 為 visible ... 省了 ...
原帖由 gold_fish 於 2008-4-26 09:57 發表 如果係一個program, 咁係另一張form 到 logout 時會唔會login page 仲係到?
- r. `+ s; } F, W/ X4 E Public Class Form26 }" y d$ x6 i$ H" j& J5 p1 H ) Y8 r9 N3 d8 f* v" ~) A1 N, I4 V0 n Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated ) f7 ~9 T( O. L# A Me.Label1.Text = " Hello, " & Form1.TextBox1.Text $ b2 @# V- B5 w End Sub $ m! f% d2 m7 U1 s- z; [& O3 D1 Y$ [8 L- |* e Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click . B6 Q4 W. k3 p5 O& I5 [2 O Me.Hide()+ F/ H. }. k, l0 E& m3 k# f# h Form1.Show() / |& z/ X2 T! B4 f( `9 E4 ` End Sub # \, M) U, k8 a: r5 F. X: s: G) N Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click- o9 ^9 }/ x7 q# y, H* h. l1 F Form1.Close() + {4 c' a& c& a$ k End Sub9 s6 x$ j$ ^" R! A End Class 0 Z2 d) k# @: V- k