?
Solved

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

Posted on 1998-09-28
13
Medium Priority
?
210 Views
Last Modified: 2010-04-30
nothing
0
Comment
Question by:chingping
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
13 Comments
 
LVL 18

Expert Comment

by:deighton
ID: 1437060
{NULL]
0
 
LVL 1

Expert Comment

by:kacklehorn
ID: 1437061
set answer = nothing
0
 
LVL 1

Expert Comment

by:Staplehead
ID: 1437062
of course, you could always make it self-referential...

set answer = Me
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 10

Expert Comment

by:viktornet
ID: 1437063
NIL
0
 
LVL 2

Expert Comment

by:AllenC_Jr
ID: 1437064
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
ID: 1437065
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
 
LVL 10

Expert Comment

by:viktornet
ID: 1437066
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
ID: 1437067
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
ID: 1437068
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
ID: 1437069
ALLEN'S DA MAN ;->

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

Author Comment

by:chingping
ID: 1437070
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
ID: 1437071
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
ID: 1437072
S'ok

0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

764 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