Link to home
Start Free TrialLog in
Avatar of chingping
chingping

asked on

Allen, way to go!!!! Not a Question either!

nothing
Avatar of deighton
deighton
Flag of United Kingdom of Great Britain and Northern Ireland image

{NULL]
Avatar of kacklehorn
kacklehorn

set answer = nothing
of course, you could always make it self-referential...

set answer = Me
What is the point of this message? Mine was for a purpose, some people had questions that needed an answer. This message is a joke...
Out Of boredom...














Private Declare Function SetParent& Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long)

Private Declare Function SetWindowText Lib "user32" _
    Alias "SetWindowTextA" (ByVal hwnd As Long, _
    ByVal lpString As String) As Long

Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)

Private Sub EnslaveWindow(ObjCage As Object, WindowCaption$, Optional WindowClass As String = "", Optional NewWindowCaption$)
Dim m_lngCagedWindow&
m_lngCagedWindow = FindWindow(ByVal vbNullString, ByVal WindowCaption) 'The Caption isn't Case Sensitive
If m_lngCagedWindow = 0 Then Exit Sub
SetParent m_lngCagedWindow, ObjCage.hwnd
If Not NewWindowCaption = "" Then
SetWindowText m_lngCagedWindow, NewWindowCaption
End If
ObjCage.Enabled = False
End Sub

Private Sub Form_Activate()
EnslaveWindow P1, "Form2", "", "Rex"
End Sub

Private Sub Form_Load()
Form2.Show
DoEvents
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
End Sub


Shame on ya guys. Allen is trying to help people and you are making fun of 'im!

//Vik

Chingping, at least when you are making fun of people be sure that you've got the knowledge to be making fun. I don;t see you on the Experts' list, what's going on?? Are you trying to bother people 'cause they know more than ya??? I dislike boring people like you, and don't what he did to you . o O

Regards,
Viktor Ivanov
hmmmm...

Here is someone's Profile...

1) Constructed A Directory Class(clsDirectory) that will with the approiate Information, Search the Users hard drive gathering information like: directories, files with attributes such as hidden, system, read-only, archive(that is all of them), These are all options. You could get folders only and no files, or just folders. It Stores all of this information into memory. You can call the GetIcon Function and return a filenames Icon that is used by windows, it's description, display name, and it's attributes.

2) Constructed A Custom menu system that is fully customizable, It allows three different menu types:

Normal - This menu is the only one of all three that can have sub-menus, it uses the setcapture and releasecapture api Calls.

TextBox - This One is much like the normal but it has a textbox to the right of it, it allows the user to Type The Text that Corresponds with the caption of the menu, then when done the user can click on the caption(or in that general area) and it will return the text the user typed along with all of the other info about the menu.

ComboBox - This One is under Construction, I Need to add the calls to add information to the combo-box, but it is a simple matter.

3) Many More, but I would be here all day to explain them all

Oh, whatta you know, it's mine...
ASKER CERTIFIED SOLUTION
Avatar of viktornet
viktornet
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of chingping

ASKER

Dear Viktor and Allen,

      Hey, there's a misunderstanding here. You see, Allen and you too had helped me before. And I am really expressing my gratitude. No sarcasm here.
      I don't know about the rest of the guys. If they are trying to be funny, they ain't.
      I will accept the answer to close this question off.
      No worries pal!   :)

Regards,
Ching Ping
I ain't helped noone since I don't know much of a VB... Keep the comments to yourself

Regards,
(@Viktor_Ivanov)^.Name;
S'ok