|
Hello,
You can use the ImageLocation property to retrieve the image path. However, you will have to
use the load() method of the Picture box to get the image in the box.
Lets say you have one picture box and two buttons. First button is used to browse for images and
second button is used to retrieve the image path. In this case, you can try the following code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Dim ofd As New OpenFileDialog<br />
ofd.Filter = "JPG|*.jpg|BMP|*.BMP|All Files|*.*"<br />
<br />
Dim result As DialogResult<br />
result = ofd.ShowDialog<br />
<br />
If result = Windows.Forms.DialogResult.OK Then<br />
<br />
Me.PictureBox1.Load(ofd.FileName)<br />
<br />
End If<br />
<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
<br />
MsgBox(Me.PictureBox1.ImageLocation)<br />
<br />
<br />
End Sub
I hope this will help. If you have any doubts, please reply to this thread.
Regards,
Allen
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
Well Thanks For the reply ,
I dont want in this way . I want in a way like if we select an image property of image type in propertygrid ,then we can select an image at any location and if we click button ok , the image wil be loaded in to the picturebox .In propertygrid it is showing as "System.drawimg.bitmap" without showing the image path .
Or in any way i want the file path . Actually i didnt find any method to get the selected image path in VS2005 or 2003 .Like the one in File Dialog ("FileName")
I want here the file path .
I Really needed it
DVS
|
|
|
|
|
hi,
is there tool do as button.preformclick in label ?
|
|
|
|
|
break_day wrote: is there tool do as button.preformclick in label ?
??? 
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
No, there is no Label.PerformRead(). 
|
|
|
|
|
Although your question does invite ridicule, there is a way to do what you want.
1. Put the code that you want to run when you click the label in a separate sub.
2. call that sub in the click event of your label.
3. also call that sub in the VisibleChanged event of your label:
<br />
Private Sub Label1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.VisibleChanged<br />
If Label1.Visible = True Then YourSub()<br />
End Sub
4. where you would have called label1.performclick (if it existed, which it doesn't), instead use:
<br />
Label1.Visible = false<br />
Label1.Visible = True<br />
A complete example:
<br />
Private Sub Label1_textChange()<br />
Label1.Text += "bla"<br />
End Sub<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Label1.Visible = False<br />
Label1.Visible = True<br />
End Sub<br />
<br />
Private Sub Label1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.VisibleChanged<br />
If Label1.Visible = True Then Label1_textChange()<br />
End Sub<br />
P.S. the VisibleChanged event will also fire when your form loads, so you may want to clear it in the Form's Load event:
<br />
Private Sub YourForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Label1.Text = ""<br />
End Sub<br />
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Good morning all
i have a strange situation here,am using a thread to hide my splash screen and after the Splash screen i Display my login screen, and after the i validate the credentials against the database, i need to Close the login Box and show the Main Form(MDI),ok that works fine, but the Login box et stucked at my screen. here is the code where it supposed to close
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
Dim frmmain As New frmmain
Dim frmlogin As New frmLogin
Dim strusername = CStr(txtusername.Text.Trim)
Dim strPassword = CStr(txtpassword.Text.Trim)
Dim obj As New Admin_BLL.Clients
Dim bl As Boolean
Try
bl = obj.loginBLL(strusername, strPassword)
If bl = True Then
frmlogin.Close()
frmmain.Show()
Else
bl = False
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
.
Please tell me whats wrong with code.
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Vuyiswa wrote: CStr(txtusername.Text.Trim)
This is a waste of time, txtusername.text.trim is already a string
Vuyiswa wrote: Dim frmmain As New frmmain
This is your new 'main' form
Vuyiswa wrote: Dim frmlogin As New frmLogin
and this is a new 'login' form
Vuyiswa wrote: frmlogin.Close() frmmain.Show()
I'm not sure why showing a main form modelessly, which then immediately goes out of scope, works. But, creating a new login form and then closing it, will do nothing for the other login instance that is already visible elsewhere.
The use of CStr makes me think you've used VB6. You should avoid VB6 constructs, they are nasty, and you should buy a book on OO to help you learn your way past these sort of issues.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Good Morning Chris
Go Easy on i do buy books. i will not Convert string to String again, i know that a textbox, is already a string, so i trying to fool proof it, but thanks for the advice about that.
Thanks for the Advice
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
You should also study the books you buy.
|
|
|
|
|
Thanks i will
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Hi all,
I would like to enquire you guys about back and forward buttons (history) like what we have in internet explorers. You could never predict where the user's went previously, etc.. Does anyone know how to go about doing that (code-wise) or have any resource on the net that would be useful(I tried searching - they are all on previous entries instead of previous page)?
Any help would be appreciated. Thanks. 
|
|
|
|
|
you want back and forward buttons in your windows app, but you think you can't know where the user was before ? Perhaps you need to explain better ?
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Yes, ok I mean
here is an example:
I'm currently doing a contract and supplier system. So a user could move from one form to another a lot. Let's say for example I moved from vendor create form, to vendor view then to contract create. NOTE: so, now I'm at contract create form. I have two buttons (named button1 and button2), text are "<<" and ">>", now I want to be able to go to vendor view form when i clicked on the "<<" button.
I hope I managed to explain my doubt. Pardon for any vague explanation earlier on
Any help would be appreciated. Thanks.
|
|
|
|
|
|
dspandian
if you need help, Stop screaming, It seems that you dont manners and what sort of Questionis that?
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
it's impossible to help you if you don't give some details (what kind of report, what datasource, what generators do you want to use (Crystal Reports, ...))?
|
|
|
|
|
System Error &h800004005(-2147467259). Unspecified Error
and sometimes a different error message appears like this..
the instruction at "asdjn234 blah blah blah" referenced memory at "0.123434". Memory could not be read 
anyone got an idea why am having this error?
its a project with an active reports am trying to compile..
..any help would be appreciated and thanks again in advance
|
|
|
|
|
anthony
you will get those Errors till you learn that vb6 its Crap, Microsoft is no longer Supporting it. Developers who are still with vb6, they should learn to move on, including you anthony, what benefits do you get in vb6, that you will never get in vb.net ?
move on Brother
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
yeah right its crap man!! thnx anways..
..well as if ive got a choice
the system am working on are coded on vb6 and am just doing maintenance for this systems
who wouldnt want to move on with this crap..
i never really like this... being a programmer...whhargghh!!
|
|
|
|
|
Probably, posting the relevant code will help.
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
i have use this coding ,but not display data in datagridview, plz help me
str = "SELECT * FROM Account"
cmd = New OleDbCommand(str, cn)
ad = New OleDbDataAdapter(str, cn)
ds = New DataSet
ad.Fill(ds, "Account")
Me.DataGridView1.DataSource = ds.Tables("Account").DefaultView
|
|
|
|
|
hi
take a look at this
http://msdn2.microsoft.com/en-us/fbk67b6z(VS.90).aspx[^]
Hope it will help
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
I am using vb.net.I want to add system colors with color name in combo box.I can add system color name in combo box .The code is given below
****************
Private Sub btGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGet.Click
Dim color As Color
Dim i As Integer
For Each color In System.ComponentModel.TypeDescriptor.GetConverter(GetType(Color)).GetStandardValues()
i += 1
ComboBox1.Items.Add(color.ToKnownColor)
Next
Label1.Text = "Total Color Count: " & i
ComboBox1.SelectedIndex = 0
Me.BackColor = color.FromKnownColor(ComboBox1.SelectedItem)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Try
Me.BackColor = Color.FromKnownColor(ComboBox1.SelectedItem)
Catch ex As Exception
Application.Exit()
End Try
End Sub
****************
I want to add color also.How can i do this .If anyone know the code pls help me. 
|
|
|
|
|
Hi ,
I'm trying to add the text in textbox into a datagrid. But i failed to add it into datagrid.
After i click 'Add' button, nothing appear in the datagrid.
Can anyone guide me to solve the problem? Thanks in advanced.
Here is my codes:
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
Try
Dim dgBarCode As New DataGridTableStyle
Dim HBarCode As New DataGridTextBoxColumn
HBarCode.MappingName = Me.txtHBarCode.Text
HBarCode.HeaderText = "HBarCode"
HBarCode.Width = 50
dgBarCode.GridColumnStyles.Add(HBarCode)
Dim EMIBarCode As New DataGridTextBoxColumn
EMIBarCode.MappingName = Me.txtEMIBarCode.Text
EMIBarCode.HeaderText = "EMIBarCode"
EMIBarCode.Width = 50
dgBarCode.GridColumnStyles.Add(EMIBarCode)
Me.dgResult.TableStyles.Add(dgBarCode)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Thanks, Eunice
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
