Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Why doesnt this work?

Status
Not open for further replies.
mettodog

mettodog

Vendor
Jul 11, 2000
94
US
If Me.OpenText.FileName = "*.pge" Then Me.Icon = pge.Picture
If Me.OpenText.FileName = "*.note" Then Me.Icon = note.Picture
 
Sort by date Sort by votes
If Me.OpenText.FileName = "*.pge" Then Me.Icon = loadpicture("pge.Picture")
If Me.OpenText.FileName = "*.note" Then Me.Icon = loadpicture("note.Picture ")
David Paulson


 
Upvote 0 Downvote
thanks for your help, but the form when loaded still displayes the vb icon.
 
Upvote 0 Downvote
OK, How about this

If right$(Me.OpenText.FileName,3) = "pge" Then Me.Icon = loadpicture("pge.Picture")
If right$(Me.OpenText.FileName,4) = "note" Then Me.Icon = loadpicture("note.Picture ")



David Paulson


 
Upvote 0 Downvote
that worked, but i had to change a few things. this is what the code is in case anyone is interested:


If Right$(Me.OpenText.FileName, 3) = "pge" Then Me.Icon = pge.Picture
If Right$(Me.OpenText.FileName, 4) = "note" Then Me.Icon = note.Picture

 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

sal21
  • Locked
  • Question
how to read the coordinates in from this file
Replies
3
Views
364
Ken01
Ken01
sal21
  • Locked
  • Question
ARRANGE this Access coe to vb6
Replies
4
Views
290
strongm
strongm
Michael OConnor
  • Locked
  • Question
Is this Meridian Mail
Replies
2
Views
163
Michael OConnor
Michael OConnor
sal21
  • Locked
  • Question
have error in get query, why?
Replies
1
Views
513
strongm
strongm
sal21
  • Locked
  • Question
WHY! ie dont show the table of result 1
Replies
8
Views
256
sal21
sal21

Part and Inventory Search

Sponsor

Back
Top