- This topic has 19 replies, 5 voices, and was last updated 18 years ago by
Admin.
-
AuthorPosts
-
November 28, 2005 at 6:07 pm #189175
namsir
Membercan anyone show me how to do this? or give me the code please…thanks
November 28, 2005 at 8:07 pm #189194Admin
Administratorcheck you pms i send u some info bout it 🙂
umm i think this code should go publik lol but its no mines so i can do it, hehhe
November 28, 2005 at 10:24 pm #189193Memberthanks million times bro…have a great day
November 29, 2005 at 12:06 am #189192AdministratorNo problem man 🙂
December 1, 2005 at 8:52 pm #189191cwebz
Membersome one might as well put a code up and updated it ..
December 1, 2005 at 9:28 pm #189190Administratortrue i gonna ask the owner o see wha they say 🙂 cause i think this ould help a lot of peeps
April 7, 2006 at 1:33 am #189189method
Member@Admin wrote:
check you pms i send u some info bout it 🙂
umm i think this code should go publik lol but its no mines so i can do it, hehhe
Admin could u send me this code too. i need it badly.thanks
April 7, 2006 at 10:23 am #189188Departure
Memberthe owner?? there is no owner for that code as it was an example code on VBforum , I posted the example code on this forum and i NVYE addapted it to suit paltalk, thats if it the same code from doctor (i for got the last bit)
April 7, 2006 at 1:04 pm #189187AdministratorAh so it can be publik 🙂
aigh here it is, And give them credict is a great code 🙂
April 8, 2006 at 2:56 am #189186MemberMany thanks loco for sharing this code. Could u tell me how i can compile and run this code using paltalk 8.3 ? i can not make .exe out of it !! i keep getting error! ;
Compile error:
User-defined type not defined
click ok or help
and it points to this line
Private Sub Command2_Click()
Dim LV As LV_ITEM === error herei be happy if u tell me how to fix it and how to use it?Thannks
April 8, 2006 at 4:07 pm #189185AdministratorAh thas a part of the code I don’t know what they use it for lol, anyways click on the comand button2
and erase the code inside it I mean this
Private Sub Command2_Click()
Dim LV As LV_ITEM
Dim numSelected As Long
Dim mywindowclass As Long, wtlsplitterwindow As Long, atlac As Long
Dim syslistview As Long
mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atlac = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053a8c0", vbNullString)
syslistview = FindWindowEx(atlac, 0&, "syslistview32", vbNullString)
With LV
.mask = LVIF_STATE
.state = True
.stateMask = LVIS_SELECTED
End With
'by setting wParam to -1, the call affects all
'listitems. To just change a particular item,
'pass its index as wParam.
Call SendMessage(syslistview, _
LVM_SETITEMSTATE, _
1, _
LV)
End Subjust erase than and it should fix that ):
April 8, 2006 at 4:56 pm #189184MemberThank u for u reply. Now it complains about TVM_GETNEXTITEM when i try to make .exe for it :
compile error variable not defined!!
Public Function TreeView_GetNextItem(hWnd As Long, hItem As Long, Flag As Long) As Long
TreeView_GetNextItem = SendMessage(hWnd, TVM_GETNEXTITEM, ByVal Flag, ByVal hItem)
End Functioni am intrested in making it .exe and play around with it. Could u tell me how i can make this program to add those names to my list instead of just adding it to program list?
April 8, 2006 at 5:26 pm #189183Administratorlol ah crap lol aigh I going to check it again lol aigh let me check 8)
April 8, 2006 at 6:23 pm #189182AdministratorAich check this one it works perfect I think 🙂
April 14, 2006 at 2:24 am #189181Memberloco could u clean up this code since it has lots of modules.Furthermore, what was that second button for ?Thanks
-
AuthorPosts
Related
- You must be logged in to reply to this topic.