Solved

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

Posted on 1998-09-28
13
209 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
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 
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

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!

Question has a verified solution.

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

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
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…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…

717 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