1. Hello Guest, selamat datang di Forum WinPoin. Kamu bisa bertanya, berdiskusi, sharing, dan ngobrolin apapun seputar Windows, Windows Phone, PC, Gadget, atau hal seputar Teknologi lainnya. Selamat berkomunitas! ;)

Solved Script untuk menekan "Enter" pada Textbox di VBA PowerPoint

Discussion in 'Microsoft Office' started by Ahmad Jazuli, Aug 25, 2017.

Thread Status:
Not open for further replies.
  1. Ahmad Jazuli

    Ahmad Jazuli Member

    Joined:
    Jun 2, 2017
    Messages:
    67
    coba-login.jpg
    Saya Mau buat Slide Halaman Login di PowerPoint nih.. tapi dengan syarat, yaitu...

    1. Pertama, isi password di Textbox
    2.
    Kedua, tekan "ENTER" pada keyboard, maka akan otomatis berpindah ke Slide Selanjutnya..
    3. Bagaimana kodingannya nih ? Coba pake KeyAscii = 13 tapi tidak berpengaruh sama sekali :-O ada yang bisa bantu ?? :)
     
  2. Ahmad Jazuli

    Ahmad Jazuli Member

    Joined:
    Jun 2, 2017
    Messages:
    67
  3. NubieBytes

    NubieBytes Member

    Joined:
    Sep 6, 2017
    Messages:
    91
    Saya udah rada² nyerah... heheh ... keypress, keydown, keyup, gak ada yang bisa jalan. Akhirnya
     
  4. NubieBytes

    NubieBytes Member

    Joined:
    Sep 6, 2017
    Messages:
    91
    Masih berkutat dengan VBA-nya?
    Setelah berkutat selama beberapa jam, akhirnya problem saya SOLVED!
    1. Klik Submit ⇥ Jalan
    2. Klik Reset ⇥ Jalan
    3. dan terakhir Tekan Enter ⇥ Jalan
    Code:
    Option Explicit
    
    Private Sub Reset_Click()
    	Text1.Text = ""
    	
    End Sub
    
    Private Sub Submit_Click()
    	If Text1.Text = "Password!" Then
    	SlideShowWindows(Index:=1).View.Next
    
    Else
        MsgBox "Salah password", 16, "Salah password"
    
    End If
        Text1.Text = ""
    	
    End Sub
    
    Private Sub Text1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
       If Text1.Text = "Password!" Then
       SlideShowWindows(Index:=1).View.Next
    
    	Else
    		MsgBox "Salah password", 16, "Salah password"
    
    	End If
    		Text1.Text = ""
    		End If
    	
    End Sub
    
    
    Silahkan dicoba. Mana tahu yang di seberang juga bisa jalan.

    P.S: Saya make MSO 2010
     
    • Bermanfaat Bermanfaat x 1
  5. Ahmad Jazuli

    Ahmad Jazuli Member

    Joined:
    Jun 2, 2017
    Messages:
    67
    Makasih banyak bro.. Setelah saya coba, codenya work..!

    Tapi ana masih bingung :nanya::mikir: dibagian Private Sub Reset dan Private Sub Click itu fungsinya buat apa ya ? soalnya kodingannya hampir sama dengan Private Sub Text1Keydown...

    By the way, saya pake MS 2016,Jadi nama komponen teks di 2016 adalah TextBox1, kurang lebih sama ^_^
     
  6. NubieBytes

    NubieBytes Member

    Joined:
    Sep 6, 2017
    Messages:
    91
    Sama² mas.
    Heheh.. itu hanya alternatif utk login. Karena yg make punya kebiasaan beda². Ada yg punya kebiasan klik tombol submit setelah isi password, ada yang langsung tekan enter.

    Klo reset mah hanya untuk ngosongin form. Ngga diadakan alias dibuang juga gak masalah sih. Klo anda mau, buang aja koding yang Reset_Click() dan Submit_Click().

    Owh... 2016. Aslinya sih sama aja. TextBox1 juga, tapi saya hanya tulis sampe Text.
    Intermezo... di Bagian Transitions, jangan lupa matikan (uncheck) On Mouse Click.
     
    • Setuju Setuju x 1
  7. Ahmad Jazuli

    Ahmad Jazuli Member

    Joined:
    Jun 2, 2017
    Messages:
    67
    Ya sih, waktu saya hapus kode Reset_Click() dan Submit_Click(), kode tetap jalan..

    Makasih saranya mas, Thanks banget nih, dapat ilmu baru ;-p(y)
     
    • Setuju Setuju x 1
  8. NubieBytes

    NubieBytes Member

    Joined:
    Sep 6, 2017
    Messages:
    91
    Sama², itu kebetulan aja temen di smu tempat saya sempat ngajar, minta dibuatkan 1 slide utk login, yang dipake buat ulangan siswa/siswinya. Lama banget dah ngga mainan coding, otaknya jadi lamban. Karena berkarat.. heheh...
     
  9. Ahmad Jazuli

    Ahmad Jazuli Member

    Joined:
    Jun 2, 2017
    Messages:
    67
    wew.. pro dong :D
     
  10. NubieBytes

    NubieBytes Member

    Joined:
    Sep 6, 2017
    Messages:
    91
    No pro.. just nubz
     
Thread Status:
Not open for further replies.

Share This Page