Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > .NET Framework > Forum > ทำการกำหนดสิทธิ์ในการเลือกใช้ ToolStripButton ไว้ในฟอร์มล็อกอืน ไม่เห็นมีอะไรเกิดขึ้น?



 

ทำการกำหนดสิทธิ์ในการเลือกใช้ ToolStripButton ไว้ในฟอร์มล็อกอืน ไม่เห็นมีอะไรเกิดขึ้น?

 



Topic : 118665



โพสกระทู้ ( 216 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Module Module1
    Public con As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public rd As OleDbDataReader
    Public str As String

    Public Sub connection()
        str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\admim\Documents\ฐานข้อมูล5.accdb"
        con = New OleDbConnection(str)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
    End Sub
End Module

Public Class frmlogin

    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        connection()
        If (txtuser.Text = "") Then
            MessageBox.Show("กรุณากรอกUsername", "Login", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtuser.Focus()
            Exit Sub
        End If

        If (txtpass.Text = "") Then
            MessageBox.Show("กรุณากรอกPassword", "Login", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtpass.Focus()
            Exit Sub
        End If

        If txtuser.Text = "user1" And txtpass.Text = "1234" Then
            MessageBox.Show("คุณคือ user1", "Login", MessageBoxButtons.OK)
            Call user1login()
        ElseIf txtuser.Text = "user2" And txtpass.Text = "4567" Then
            MessageBox.Show("คุณคือ user2", "Login", MessageBoxButtons.OK)
            Call user2login()
        ElseIf txtuser.Text = "user3" And txtpass.Text = "7890" Then
            MessageBox.Show("คุณคือ user3", "Login", MessageBoxButtons.OK)
            Call user3login()
        Else
            MsgBox("username หรือ password ไม่ถูกต้อง")

        End If
    End Sub

    Private Sub user1login()
        Dim frmpro As New frmproject
        frmproject.Show()
        Me.Hide()
        frmpro.ToolStripButton1.Visible = True
        frmpro.ToolStripButton2.Visible = False
        frmpro.ToolStripButton3.Visible = False
        frmpro.ToolStripButton4.Visible = True

    End Sub

    Private Sub user2login()
        Dim frmpro As New frmproject
        frmproject.Show()
        Me.Hide()
        frmpro.ToolStripButton1.Visible = False
        frmpro.ToolStripButton2.Visible = True
        frmpro.ToolStripButton3.Visible = False
        frmpro.ToolStripButton4.Visible = True
    End Sub

    Private Sub user3login()
        Dim frmpro As New frmproject
        frmproject.Show()
        Me.Hide()
        frmpro.ToolStripButton1.Visible = False
        frmpro.ToolStripButton2.Visible = True
        frmpro.ToolStripButton3.Visible = True
        frmpro.ToolStripButton4.Visible = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If MessageBox.Show("คุณต้องการออกจากระบบ?", "Login", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Application.Exit()
        End If
        'ใช้แทน me.close() เพราะต้องการมีกล่องข้อความถามว่า คุณต้องการออกจากระบบ?

    End Sub


คือเมื่อuser1 loginเข้ามา มีแต่.ToolStripButton1กับ.ToolStripButton4ที่ใช้งานได้



Tag : .NET, Ms Access, VS 2012 (.NET 4.x)









ประวัติการแก้ไข
2015-09-01 15:13:45
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2015-09-01 15:13:17 By : peemes101 View : 1053 Reply : 11
 

 

No. 1



โพสกระทู้ ( 317 )
บทความ ( 0 )



สถานะออฟไลน์


โค้ดน่าจะโอเคแล้วนะครับ ไม่ได้ตรงไหนเหรอครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-01 15:48:56 By : Freedom
 


 

No. 2

Guest


คงต้องเอาโค้ดของฟอร์ม frmproject มาดูนะครับ
หรือมั้ยก็ส่งค่า รหัสไปให้อีกแล้วตรวจสอบในอีกฟอร์มน่าจะดีกว่านะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-01 16:18:04 By : Mi
 

 

No. 3



โพสกระทู้ ( 216 )
บทความ ( 0 )



สถานะออฟไลน์


มันไม่เป็นในสิ่งที่ต้องการคือ
เมื่อ user1เข้ามามันกดToolStripButtonได้ทุกปุ่มเลย
แต่สิ่งที่ต้องการคือกดที่เฉพาะToolStripButton1กับToolStripButton4เท่านั้น ส่วนToolStripButtonที่เหลือเป็นenable
และเมื่อกดที่ToolStripButton มันโชว์ฟอร์มเดียวเท่านั้น โดยไม่ซ้อนกัน


อันนี้เป็นโค้ดฟอร์มfrmproject
Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Public Class frmproject

    Private Sub frmproject_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Not (Me.ActiveMdiChild Is Nothing) Then
            Me.ActiveMdiChild.Close()
        End If
        
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim frm As Form 'ให้ frm เป็น Form ธรรมดา

        'ค้นหาฟอร์มลูกทั้งหมดก่อนว่ามี Form1 หรือยัง
        For Each frm In Me.MdiChildren
            If (TypeOf frm Is Form1) Then
                frm.Activate() 'ถ้าพบ สั่ง Activate เพื่อให้วินโดว์นั้นแสดงขึ้นมาอยู่ข้างบนสุด
                Exit Sub       'บรรลุความประสงค์ของ procedure นี้แล้ว.
            End If
        Next


        Dim f1 As New Form1 'ให้สร้างอ๊อบเจ็กต์ฟอร์มใหม่ เพื่อเปิดฟอร์มตามปกติ
        f1.MdiParent = Me   'กำหนดให้เป็นฟอร์มลูกของฟอร์มปัจจุบัน
        f1.Show()           'สั่งให้แสดงบนหน้าจอ
        



    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        Dim frm1 As Form 'ให้ frm เป็น Form ธรรมดา

        'ค้นหาฟอร์มลูกทั้งหมดก่อนว่ามี Form1 หรือยัง
        For Each frm1 In Me.MdiChildren
            If (TypeOf frm1 Is Form2) Then
                frm1.Activate() 'ถ้าพบ สั่ง Activate เพื่อให้วินโดว์นั้นแสดงขึ้นมาอยู่ข้างบนสุด
                Exit Sub       'บรรลุความประสงค์ของ procedure นี้แล้ว.
            End If
        Next

        Dim f2 As New Form2 'ให้สร้างอ๊อบเจ็กต์ฟอร์มใหม่ เพื่อเปิดฟอร์มตามปกติ
        f2.MdiParent = Me   'กำหนดให้เป็นฟอร์มลูกของฟอร์มปัจจุบัน
        f2.Show()           'สั่งให้แสดงบนหน้าจอ
        



    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        Dim frm2 As Form 'ให้ frm เป็น Form ธรรมดา

        'ค้นหาฟอร์มลูกทั้งหมดก่อนว่ามี Form1 หรือยัง
        For Each frm2 In Me.MdiChildren
            If (TypeOf frm2 Is Form3) Then
                frm2.Activate() 'ถ้าพบ สั่ง Activate เพื่อให้วินโดว์นั้นแสดงขึ้นมาอยู่ข้างบนสุด
                Exit Sub       'บรรลุความประสงค์ของ procedure นี้แล้ว.
            End If
        Next



        Dim f3 As New Form3 'ให้สร้างอ๊อบเจ็กต์ฟอร์มใหม่ เพื่อเปิดฟอร์มตามปกติ
        f3.MdiParent = Me   'กำหนดให้เป็นฟอร์มลูกของฟอร์มปัจจุบัน
        f3.Show()           'สั่งให้แสดงบนหน้าจอ
    End Sub

    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        MessageBox.Show("ออกจากระบบ", "Exit", MessageBoxButtons.OK)
Me.Close()
    End Sub



ประวัติการแก้ไข
2015-09-02 00:27:51
2015-09-02 00:39:34
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-01 21:20:21 By : peemes101
 


 

No. 4



โพสกระทู้ ( 317 )
บทความ ( 0 )



สถานะออฟไลน์


ถ้าให้เดา ถ้าจะผิด ก็น่าจะผิดตรงนี้แหละครับ สังเกตุดูดีๆนะครับ

- frmpro ใช้ในการประกาศ Object และซ่อนปุ่ม แต่พอแสดงผลใช้ frmproject ตัวนี้แทน

ลองเปลี่ยนมาใช้ frmpro.Show() ดูครับ


Code
Dim frmpro As New frmproject frmproject.Show() Me.Hide() frmpro.ToolStripButton1.Visible = True frmpro.ToolStripButton2.Visible = False frmpro.ToolStripButton3.Visible = False frmpro.ToolStripButton4.Visible = True

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-02 08:37:11 By : Freedom
 


 

No. 5



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ลองสร้าง form ใหม่มาครับ

น่าจะมาจากตั้งค่าไรซักอย่าง
ผมเอาโค๊ดไปเล่นดูใช้ได้หมดครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-02 10:14:16 By : lamaka.tor
 


 

No. 6



โพสกระทู้ ( 216 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณคุณ Freedom มากๆ ตอนนี้สามารถทำได้แล้ว

แต่อยากถามอีกอย่างคือ

มันติดที่เมื่อuser2 สามารถกดปุ่ม ToolStripButton2กับ ToolStripButton4ได้
ซึ่งจะโชว์ฟอร์มย่อยขึ้นมา ซึ่งถ้ากด ToolStripButton2อยู่ แล้วจะเปลี่ยนไปกด ToolStripButton4 ฟอร์มมันจะซ้อนกันและฟอร์มย่อยมันเลื่อนได้

โดยสิ่งที่ต้องการคือ ถ้ากด ToolStripButton2อยู่ แล้วจะเปลี่ยนไปกด ToolStripButton4
อยากให้โชว์แค่ฟอร์มของปุ่ม ToolStripButton4เท่านั้น ส่วน ฟอร์มของปุ่มToolStripButton2 ก็ปิดไป และฟอร์มย่อยไม่สามารถเลื่อนได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-02 15:47:08 By : peemes101
 


 

No. 7

Guest


Code (VB.NET)
Public Class Form3
    Private Sub Form3_Move(sender As Object, e As EventArgs) Handles MyBase.Move
        If Not (Me.Location.X = 0 And Me.Location.Y = 0) Then
            Me.Location = New Point(0, 0)
        End If
    End Sub
End Class


Code (VB.NET)
Public Class Form2
    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        OpenFrm()
    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click

    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        OpenFrm()
    End Sub

    Private Sub OpenFrm()
        If Not (Me.ActiveMdiChild Is Nothing) Then
            Me.ActiveMdiChild.Close()
        End If

        Dim frm As New Form3
        frm.MdiParent = Me
        frm.StartPosition = FormStartPosition.Manual
        frm.Location = New Point(0, 0)
        frm.Show()
    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.IsMdiContainer = True
        If Not (Me.ActiveMdiChild Is Nothing) Then
            Me.ActiveMdiChild.Close()
        End If
    End Sub
End Class


ประมาณนี้เอาไปปรับใช้นะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-02 16:49:55 By : Mi
 


 

No. 8



โพสกระทู้ ( 216 )
บทความ ( 0 )



สถานะออฟไลน์


ใช้ไม่ได้อะ โดยมันก็ยังซ้อนกันอยู่ดีและเลื่อนได้อยู่ดี
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-02 22:13:31 By : peemes101
 


 

No. 9

Guest


งั้นเอางี้นะ
Code (VB.NET)
Private Sub Form3_Move(sender As Object, e As EventArgs) Handles MyBase.Move
        If Not (Me.Location.X = 0 And Me.Location.Y = 0) Then
            Me.Location = New Point(0, 0)
        End If
End Sub


โค้ดนี้ใช้ในฟอร์มลูกนะครับมันจะสั่งเมื่อมีการเลื่อนฟอร์มลูกไปที่ตำแหน่งอื่นให้ไปต้ำแหน่ง 0,0 นะครับ

Code (VB.NET)
If Not (Me.ActiveMdiChild Is Nothing) Then
            Me.ActiveMdiChild.Close()
        End If


โค้ดนี้เอาไว้ในฟอร์มแม่นะครับ มันจะทำการปิดฟอร์มลูกที่ถูกเลือกอยู่ถ้าจะเปิดที่ละฟอร์มใช้อันนี้ก็ได้แต่ถ้าไม่มั่นใจใช้อันล่างนะครับ

Code (VB.NET)
For Each frmc As Form In Me.MdiChildren
            frmc.Close()
Next


โค้ดนี้จะค้นหาฟอร์มลูกทั้งหมดที่อยู่ในฟอร์มแม่แล้วทำการปิดนะครับ

ไม่เข้าใจตรงไหนถามได้นะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-02 22:38:04 By : Mi
 


 

No. 10



โพสกระทู้ ( 216 )
บทความ ( 0 )



สถานะออฟไลน์


ทำได้แล้ว
ขอบคุณคุณGuest มากๆ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-03 22:10:09 By : peemes101
 


 

No. 11



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-04 09:29:29 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ทำการกำหนดสิทธิ์ในการเลือกใช้ ToolStripButton ไว้ในฟอร์มล็อกอืน ไม่เห็นมีอะไรเกิดขึ้น?
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่