Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

TANYA CODING VB6

tanya dong mas atau mb. .

saya punya button & textbox
misal textbox isinya sudah di set "KANTOR BARU".
posisi textbox enable false.
logikanya
jika button diklik maka textbox enable true dan kursor pada textbox
langsung berada di akhir text(belakang U), caranya gmna mas?

trus kalo saya mau ngaktifin tombol keyboard (misal F10) dari button gt gmna caranya mas?

makasih
;;)

Comments

  • Private Sub Command1_Click()
    Text1.Enabled = True
    Text1.SetFocus
    Text1.SelStart = Len(Text1.Text)
    End Sub



    modifikasi F10 buat apa ?
    itu sudah di desain by system utk akses menu
  • saya punya kolom tanggal di form menu, saat kolom tanggal di enter langsung set focus pada menu bar.
    gmna mas?
    maksudku g perlu neken tombol keyboard tapi di set dengan program gt lho mas. .
  • lah kalo meletakkan kursor di akhir record datagrid gimna mas?
  • bweh ... elo itu maunya banyak
    tapi kok kayanya dasarnya kurang

    ini yg men-simulasikan penekanan F10
    ntah jalan, ntah kagak
    kagak gw coba
    elo explore saja sendiri

    Option Explicit
    Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
    Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
    Private Declare Sub keybd_event Lib "user32" _
             (ByVal bVk As Byte, _
              ByVal bScan As Byte, _
              ByVal dwflags As Long, ByVal dwExtraInfo As Long)

    Private Const KEYEVENTF_EXTENDEDKEY = &H1
    Private Const VK_F10 = &H79
    Private Const VER_PLATFORM_WIN32_WINDOWS = 1
    Private Const KEYEVENTF_KEYUP = &H2

    Private Type OSVERSIONINFO
            dwOSVersionInfoSize As Long
            dwMajorVersion As Long
            dwMinorVersion As Long
            dwBuildNumber As Long
            dwPlatformId As Long
            szCSDVersion As String * 128
    End Type

    Public Sub F10_KeyPress(TurnOn As Boolean)
    Dim bytKeys(255) As Byte
    Dim bF10Press As Boolean
    Dim typOS As OSVERSIONINFO
      GetKeyboardState bytKeys(0)
      bF10Press = bytKeys(VK_F10)

      If bF10Press <> TurnOn Then
        If typOS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
          bytKeys(VK_F10) = 1
          SetKeyboardState bytKeys(0)
        Else
          keybd_event VK_F10, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
          keybd_event VK_F10, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
        End If
      End If
    End Sub

    Private Sub Command1_Click()
      F10_KeyPress (True)
    End Sub
  • hahahaa
    ya maaf om, tolong di maklumi, namanya juga baru belajar.
    :D
    saya coba dulu om. .
    hehehE
    lha tu caranya biar bisa pindah di akhir record datagrid gmna om?
Sign In or Register to comment.