Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
Computers & Internet
Tips & Tricks
Visual Basic Codes
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="lucky_lakshitha" data-source="post: 5580259" data-attributes="member: 146143"><p><u><span style="color: Red"><strong>Get Desktop Path</strong></span></u></p><p><span style="color: Blue"></span></p><p><span style="color: Blue"></span></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Const ERROR_SUCCESS = 0&</p><p>Private Const HKEY_CURRENT_USER = &H80000001</p><p>Private Const SYNCHRONIZE = &H100000</p><p>Private Const READ_CONTROL = &H20000</p><p>Private Const STANDARD_RIGHTS_READ = READ_CONTROL</p><p>Private Const KEY_QUERY_VALUE = &H1</p><p>Private Const KEY_ENUMERATE_SUB_KEYS = &H8</p><p>Private Const KEY_NOTIFY = &H10</p><p>Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _</p><p>KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or _</p><p>KEY_NOTIFY) And (Not SYNCHRONIZE))</p><p>Private Const REG_SZ = 1</p><p>Private Declare Function RegCloseKey& Lib "ADVAPI32.DLL" (ByVal hKey&)</p><p>Private Declare Function RegOpenKeyExA& Lib "ADVAPI32.DLL" _</p><p>(ByVal hKey&, ByVal lpSubKey$, ByVal ulOptions&, _</p><p>ByVal samDesired&, phkResult&)</p><p>Private Declare Function RegQueryValueExA& Lib "ADVAPI32.DLL" (ByVal _</p><p>hKey&, ByVal lpValueName$, ByVal lpReserved&, lpType&, lpData As Any, _</p><p>lpcbData&)</p><p></p><p>Private Function sGetDesktop() As String</p><p>Const nLG As Long = 256</p><p>Dim sValue As String * nLG</p><p>Dim hKey As Long</p><p>Dim nType As Long</p><p>Dim nCR As Long</p><p>If (RegOpenKeyExA(HKEY_CURRENT_USER, _</p><p>"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", 0, _</p><p>KEY_READ, hKey) = ERROR_SUCCESS) Then</p><p>If (RegQueryValueExA(hKey, "Desktop", 0, nType, ByVal sValue, nLG) _</p><p>= ERROR_SUCCESS) Then</p><p>If (nType = REG_SZ) Then</p><p>sGetDesktop = Left(sValue, InStr(sValue, vbNullChar) - 1)</p><p>End If</p><p>End If</p><p>nCR = RegCloseKey(hKey)</p><p>End If</p><p>End Function</p><p></p><p>Private Sub Form_Load()</p><p>Text1 = sGetDesktop '<span style="color: Sienna">(text1 kiyanne textbox ekak)</span></p><p>End Sub</p><p></p><p></p><p>-----------------------------------------------------------------------------------</p><p>-----------------------------------------------------------------------------------</p><p></p><p><u><span style="color: Red"><strong>Arrange Icon On Desktop</strong></span></u></p><p></p><p></p><p><span style="color: Blue">Module Code</span></p><p></p><p>Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long</p><p>Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long</p><p>Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long</p><p>Public Const GW_CHILD = 5</p><p>Public Const LVA_ALIGNLEFT = &H1</p><p>Public Const LVM_ARRANGE = &H1016</p><p></p><p>Public Sub ArrangeIcons()</p><p> Dim hWnd1 As Long</p><p> Dim hWnd2 As Long</p><p> Dim Ret As Long</p><p> hWnd1 = FindWindow("Progman", vbNullString)</p><p> hWnd2 = GetWindow(hWnd1, GW_CHILD)</p><p> hWnd1 = GetWindow(hWnd2, GW_CHILD)</p><p> Ret = SendMessage(hWnd1, LVM_ARRANGE, LVA_ALIGNLEFT, 0)</p><p>End Sub</p><p></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Sub Command1_Click()</p><p>Call ArrangeIcons</p><p>End Sub</p><p></p><p>-------------------------------------------------------------------</p><p>------------------------------------------------------------------------------------</p></blockquote><p></p>
[QUOTE="lucky_lakshitha, post: 5580259, member: 146143"] [U][COLOR=Red][B]Get Desktop Path[/B][/COLOR][/U] [COLOR=Blue] Form Code[/COLOR] Private Const ERROR_SUCCESS = 0& Private Const HKEY_CURRENT_USER = &H80000001 Private Const SYNCHRONIZE = &H100000 Private Const READ_CONTROL = &H20000 Private Const STANDARD_RIGHTS_READ = READ_CONTROL Private Const KEY_QUERY_VALUE = &H1 Private Const KEY_ENUMERATE_SUB_KEYS = &H8 Private Const KEY_NOTIFY = &H10 Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _ KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or _ KEY_NOTIFY) And (Not SYNCHRONIZE)) Private Const REG_SZ = 1 Private Declare Function RegCloseKey& Lib "ADVAPI32.DLL" (ByVal hKey&) Private Declare Function RegOpenKeyExA& Lib "ADVAPI32.DLL" _ (ByVal hKey&, ByVal lpSubKey$, ByVal ulOptions&, _ ByVal samDesired&, phkResult&) Private Declare Function RegQueryValueExA& Lib "ADVAPI32.DLL" (ByVal _ hKey&, ByVal lpValueName$, ByVal lpReserved&, lpType&, lpData As Any, _ lpcbData&) Private Function sGetDesktop() As String Const nLG As Long = 256 Dim sValue As String * nLG Dim hKey As Long Dim nType As Long Dim nCR As Long If (RegOpenKeyExA(HKEY_CURRENT_USER, _ "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", 0, _ KEY_READ, hKey) = ERROR_SUCCESS) Then If (RegQueryValueExA(hKey, "Desktop", 0, nType, ByVal sValue, nLG) _ = ERROR_SUCCESS) Then If (nType = REG_SZ) Then sGetDesktop = Left(sValue, InStr(sValue, vbNullChar) - 1) End If End If nCR = RegCloseKey(hKey) End If End Function Private Sub Form_Load() Text1 = sGetDesktop '[COLOR=Sienna](text1 kiyanne textbox ekak)[/COLOR] End Sub ----------------------------------------------------------------------------------- ----------------------------------------------------------------------------------- [U][COLOR=Red][B]Arrange Icon On Desktop[/B][/COLOR][/U] [COLOR=Blue]Module Code[/COLOR] Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Const GW_CHILD = 5 Public Const LVA_ALIGNLEFT = &H1 Public Const LVM_ARRANGE = &H1016 Public Sub ArrangeIcons() Dim hWnd1 As Long Dim hWnd2 As Long Dim Ret As Long hWnd1 = FindWindow("Progman", vbNullString) hWnd2 = GetWindow(hWnd1, GW_CHILD) hWnd1 = GetWindow(hWnd2, GW_CHILD) Ret = SendMessage(hWnd1, LVM_ARRANGE, LVA_ALIGNLEFT, 0) End Sub [COLOR=Blue]Form Code[/COLOR] Private Sub Command1_Click() Call ArrangeIcons End Sub ------------------------------------------------------------------- ------------------------------------------------------------------------------------ [/QUOTE]
Insert quotes…
Verification
Haya warak paha keeyada? (haya wadi kireema paha)
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
