Cara membuat aplikasi penjualan silahkan teman-teman mencoba atau belajar bagaimana cara membuat aplikasi dengan visual basic dan bagaimana cara membuat aplikasi sendiri sehingga teman-teman bisa dengan mudah tahu cara membuat aplikasi kasir yang bisa digunakan untuk membuat aplikasi penjualan dengan begitu teman-teman bisa mencoba bagaimana cara membuat aplikasi penjualan barang dengan visual studio 2010.
Error min pada perintah pas masuk login langsung terbuka view code di class modules "If Ucase (Right (imagePatchOrFaceID, 4)) di Right nya itu tertunjuk error dengan perintah "Compile Error : Can't find project or library". Mohon petunjuknya min apa kira² yang salah?? Terimakasih
Pak, bagaimana cara menulis program ini? Program Serupa Ini Tanpa Melihat Tanpa Mengetahui Metode Peta Buku Bagaimana Anda mengumpulkan program untuk setiap bidang? Misalnya, bagaimana cara mengkompilasi Properti Program Akuntansi tanpa mengetahui parameternya? Untuk merakit suatu program, apakah Anda perlu mempelajari fitur-fitur program tersebut, lalu kembali dan membuat program dengan menulis kode menggunakan Excel? Tolong bantu saya dalam hal ini.
saya cari2 infonya, mungkin karna file macronya tidak ikut ke copy di file workbook, file macronya mungkin hanya tersimpan di personal workbook, sya gk paham, tapi ada yang bilang gitu
Hello, dear professor, please update the codes of this file for 64-bit systems, because when I don't edit the codes, the file is closed for 64-bit systems, please update this file. , Thanks a lot
Untuk Kodenya biar berfungsi di 32 bit maupun 64 bit : #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" _ Alias "GetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, _ ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" _ Alias "SetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, _ ByVal nIndex As Long, _ ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" ( _ ByVal hWnd As LongPtr) As Long Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" ( _ ByVal hWnd As LongPtr, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long #Else Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLongPtr Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLongPtr Lib "user32" _ Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" ( _ ByVal hWnd As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _ ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long #End If
Jika masih belum bisa ganti memakai kode ini pak : #If VBA7 Then Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" ( _ ByVal hWnd As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _ ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long #Else Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" ( _ ByVal hWnd As Long) As Long Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" ( _ ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long #End If Private Const GWL_STYLE As Long = (-16) Private Const GWL_EXSTYLE As Long = (-20) Private Const WS_CAPTION As Long = &HC00000 Private Const WS_EX_DLGMODALFRAME As Long = &H1 Private Const WS_EX_LAYERED = &H80000 Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private m_sngDownX As Single Private m_sngDownY As Single
