Solved

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

Posted on 1998-09-28
13
204 Views
Last Modified: 2010-04-30
nothing
0
Comment
Question by:chingping
13 Comments
 
LVL 18

Expert Comment

by:deighton
Comment Utility
{NULL]
0
 
LVL 1

Expert Comment

by:kacklehorn
Comment Utility
set answer = nothing
0
 
LVL 1

Expert Comment

by:Staplehead
Comment Utility
of course, you could always make it self-referential...

set answer = Me
0
 
LVL 10

Expert Comment

by:viktornet
Comment Utility
NIL
0
 
LVL 2

Expert Comment

by:AllenC_Jr
Comment Utility
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...
0
 
LVL 2

Expert Comment

by:AllenC_Jr
Comment Utility
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


0
Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 10

Expert Comment

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

//Vik

0
 
LVL 10

Expert Comment

by:viktornet
Comment Utility
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
0
 
LVL 2

Expert Comment

by:AllenC_Jr
Comment Utility
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...
0
 
LVL 10

Accepted Solution

by:
viktornet earned 0 total points
Comment Utility
ALLEN'S DA MAN ;->

Let me hide this question once forever....
0
 

Author Comment

by:chingping
Comment Utility
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
0
 
LVL 10

Expert Comment

by:viktornet
Comment Utility
I ain't helped noone since I don't know much of a VB... Keep the comments to yourself

Regards,
(@Viktor_Ivanov)^.Name;
0
 
LVL 2

Expert Comment

by:AllenC_Jr
Comment Utility
S'ok

0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now