Solved

VB form with no icon?

Posted on 2002-07-28
9
1,086 Views
Last Modified: 2009-07-29
How the heck do you remove the icon from the upper-left corner of a form? I have a program that pops up warning boxes, and I dont want an icon in the upper-left, like the MsgBox window pops up without the icon.

In the form, if I switch the icon to (none) the damn windows default icon appears instead. How the heck do I just remove it altogether?
0
Comment
Question by:edskee
9 Comments
 
LVL 39

Accepted Solution

by:
appari earned 25 total points
ID: 7184395
set controlbox property to  false then it wont display icon
0
 
LVL 49

Expert Comment

by:Ryan Chong
ID: 7184592
Or in your Form_Load Event:

add this line of code: Me.Icon = Nothing
0
 
LVL 19

Expert Comment

by:Rimvis
ID: 7184646
Just set Icon property to "(none)" and BorderStyle property to "Fixed Dialog".
0
 
LVL 22

Expert Comment

by:rspahitz
ID: 7185972
ryancys, that's pretty good.  You get the windows flag (in Win2K) but that looks better than the form image.

If you really want to "get rid of" the icon but leave everything else intact, you'll have to create a new icon with all pixels transparent, then set the icon to THAT.
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 2

Author Comment

by:edskee
ID: 7186138
No, because then you still have the space where the icon would be. Load up a form, then have it call a MsgBox... the msgbox has the 'title' all the way to the left, no icon, no space where an icon would be.

Havent tried appari's or rimvis's suggestions yet. Gonna give it a shot tonight.
0
 
LVL 22

Expert Comment

by:rspahitz
ID: 7186308
I see...you wanted "warning boxes".  Then I think that appari's comment should work for you if you want to allow the form to be resized, or  Rimvis' will work if you don't.
0
 
LVL 1

Expert Comment

by:HelixDaKat
ID: 7187128
Set the forms settings as follows:

BORDERSTYLE = 3 - FIXED DIALOG
ICON = (NONE)

HelixDaKat
0
 
LVL 4

Expert Comment

by:marper
ID: 7197086
Private Sub Form_Load()
Form1.Picture = LoadPicture()   'Clear the picture.
end sub
0
 
LVL 2

Author Comment

by:edskee
ID: 7197194
Thanks... sorry for the delay in grading the question.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

930 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

9 Experts available now in Live!

Get 1:1 Help Now