Visual Basic

binding radio buttons with currency manager???

3-Apr-07 9:36

The only place you're going to find VB6 is if you buy it off EBay. It hasn't been available for retail for about 5 years now.

ASP.NET can be had, along side the VB.NET Express Edition, as Visual Web Developer Express Edition. Both of which you can find here[^].

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

abbss.gaurav3-Apr-07 8:30

abbss.gaurav

3-Apr-07 8:30

the problem is that,that whenever i use navigation buttons(which i built using currency manager)..the radio button that i checked earlier during the save stage
dont show up,, rather the default button always appeared checked(which i selected during design))))please help....
how to bind radio buttons wid currency manager

here is the full code of the page that i m designing n coding

Imports System.Windows.Forms.Form
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlCommand

Public Class vendor
Inherits System.Windows.Forms.Form
Dim objsqlconn As SqlConnection
Dim objsqlcmd As SqlCommand
Dim ds As DataSet
Dim adp As SqlDataAdapter
Dim dv As DataView
Dim objcurrencymanager As CurrencyManager

Private Sub fill()
ds = New DataSet
objsqlconn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator.WINXP_PRO_CORP.002\Desktop\WindowsApplication1\WindowsApplication1\Database1.mdf;Integrated Security=True;User Instance=True")
adp = New SqlDataAdapter("select * from vendordetails", objsqlconn)
adp.Fill(ds, "vendordetail")
dv = New DataView(ds.Tables("vendordetail"))

objcurrencymanager = CType(Me.BindingContext(dv), CurrencyManager)
End Sub

Private Sub bind()
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox7.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox4.DataBindings.Clear()
'Add new binding
TextBox1.DataBindings.Add("text", dv, "venname")
TextBox2.DataBindings.Add("text", dv, "id_vendor")
TextBox3.DataBindings.Add("text", dv, "phone")
TextBox6.DataBindings.Add("text", dv, "address")
TextBox7.DataBindings.Add("text", dv, "productname")
TextBox5.DataBindings.Add("text", dv, "product_id")
TextBox4.DataBindings.Add("text", dv, "totnoofpurch")
'display a status bar
StatusStrip1.Text = "Ready"

End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call fill()
Call bind()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'objsqlconn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator.WINXP_PRO_CORP.002\Desktop\WindowsApplication1\WindowsApplication1\Database1.mdf;Integrated Security=True;User Instance=True")
objsqlcmd = New SqlCommand
objsqlcmd.Connection = objsqlconn

objsqlcmd.CommandText = "insert into vendordetails(venname,id_vendor,phone,address,purchasetype,productname,product_id,totnoofpurch) values(@venname,@id_vendor,@phone,@address,@purchasetype,@productname,@product_id,@totnoofpurch)"
objsqlcmd.CommandType = Data.CommandType.Text
If TextBox1.TextLength = 0 Or TextBox2.TextLength = 0 Or TextBox3.TextLength = 0 Or TextBox4.TextLength = 0 Or TextBox5.TextLength = 0 Or TextBox6.TextLength = 0 Or TextBox7.TextLength = 0 Then
MsgBox("you have not completed the form")
Else
objsqlcmd.Parameters.AddWithValue("@venname", TextBox1.Text)

objsqlcmd.Parameters.AddWithValue("@id_vendor", TextBox2.Text)

objsqlcmd.Parameters.AddWithValue("@phone", TextBox3.Text)

objsqlcmd.Parameters.AddWithValue("@address", TextBox6.Text)
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
Dim b As String
Select Case True
Case Is = RadioButton1.Checked
b = RadioButton1.Text

Case Is = RadioButton2.Checked
b = RadioButton2.Text
End Select
objsqlcmd.Parameters.AddWithValue("@purchasetype", b)
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

objsqlcmd.Parameters.AddWithValue("@productname", TextBox7.Text)

objsqlcmd.Parameters.AddWithValue("@product_id", TextBox5.Text)

objsqlcmd.Parameters.AddWithValue("@totnoofpurch", TextBox4.Text)

objsqlconn.Open()
Dim m As Integer = objsqlcmd.ExecuteNonQuery()
MsgBox(m & "no. of row inserted")
objsqlconn.Close()
End If
If TextBox1.Text = "" Then
TextBox1.Focus()
ElseIf TextBox2.Text = "" Then
TextBox2.Focus()
ElseIf TextBox3.Text = "" Then
TextBox3.Focus()
ElseIf TextBox4.Text = "" Then
TextBox4.Focus()
ElseIf TextBox5.Text = "" Then
TextBox5.Focus()
ElseIf TextBox6.Text = "" Then
TextBox6.Focus()
ElseIf TextBox7.Text = "" Then
TextBox7.Focus()
End If

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

objcurrencymanager.Position = 0

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
objcurrencymanager.Position = objcurrencymanager.Count - 1

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
objcurrencymanager.Position -= 1

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
objcurrencymanager.Position += 1

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox1.Focus()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

End Sub
End Class

Re: binding radio buttons with currency manager???

Dave Kreskowiak3-Apr-07 9:40

3-Apr-07 9:40

Google "vb.net bind radio buttons data"[^] results. There's lots of examples.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Combo selection

Anybloodyid3-Apr-07 8:10

Anybloodyid

3-Apr-07 8:10

I have a combo box with the system fonts in it, how do I get it to show a font when I start typing, ie typing ar will bring up Arial, tim will bring up Times New Roman etc

Re: Combo selection

Stigmurder3-Apr-07 8:44

Stigmurder

3-Apr-07 8:44

heres a snippet from a prog a wrote in vb6

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const CB_ERR = (-1)
Public Const CB_FINDSTRING = &H14C

Private Sub Combo1_Keypress(Keyascii As Integer)
Dim CB As Long
Dim Findstring As String
If Keyascii <32 Or Keyascii > 127 Then Exit Sub

If Combo1.Sellength = 0 Then
Findstring = Combo1.Text & Chr$(Keyascii)
Else
Findstring = Left$(Combo1.Text, Combo1.Selstart) & Chr$(Keyascii)
End If

CB = Sendmessage(Combo1.hwnd, CB_FINDSTRING, -1, Byval Findstring)

If CB <> CB_ERR Then
Combo1.Listindex = CB
Combo1.Selstart = Len(Findstring)
Combo1.Sellength = Len(Combo1.Text) - Combo1.Selstart
End If
Keyascii = 0
End Sub

Re: Combo selection

Anybloodyid3-Apr-07 10:18

Anybloodyid

3-Apr-07 10:18

Cheers Stig will give it a go.

image comparison

amruta_muley3-Apr-07 7:32

amruta_muley

3-Apr-07 7:32

hello everyone

i have two images of a single finger , stored in byte arrays.
is there anyway i can compare them relatively..i mean is there something that can giv me the relative similarity or difference between the two byte arrays?

Re: image comparison

Dave Kreskowiak3-Apr-07 8:17

3-Apr-07 8:17

This will only happen if you either write the code to do the comparison or find a 3rd party library that does what you want. There is nothing in the .NET Framework that will do this for you.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

text box control

Esmo20003-Apr-07 6:53

Esmo2000

3-Apr-07 6:53

Hello everyone:

I have a quick question about rich text box controls in visual basic. I basically want to change the colour of the text in one of these controls, but I can't see another way to do it then use the "Select" command. This basically highlights text and then you can make whichever changes you want. The problem is of course that this has all sorts of unpredictable behaviors which can't be foreseen, and of course, its outright sloppy. The problem is I see no other way to edit the internal data easily! What's the standard correct way to do this sort of thing?

Regards,
James

Did I post well? Rate it! Did I post badly? Rate that too!

Stigmurder3-Apr-07 8:10

Stigmurder

3-Apr-07 8:10

Are you trying to change the color of all the text? or just a certain piece?

Dave Kreskowiak3-Apr-07 8:16

3-Apr-07 8:16

What you have now is about the only method you've got. ...Unless you want to start parsing the RTF string and inserting the formatting codes yourself.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Esmo20003-Apr-07 8:25

Esmo2000

3-Apr-07 8:25

Ah, that's too bad. Yeah, I only want to edit parts of it. Using the select method has such unpredicatable side effects, its a shame there is no provided control to get around that.

Thanks guys,
James

Did I post well? Rate it! Did I post badly? Rate that too!

Dave Kreskowiak3-Apr-07 10:07

3-Apr-07 10:07

It's a simple implementation of a RichTextBox control. It's not meant to be something like Word. If you wanted more complex functionality, it would require a more complex implementation, like a 3rd party control or something you write yourself.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

OpenURL problem

Huling3-Apr-07 6:11

3-Apr-07 6:11

When I open the web page "http://finance.yahoo.com/q/os?s=qqqq&m=2007-04" and view the source in

Internet Explorer with Notepad, the text I am looking for looks like

class="yfnc_h" align="right">11.67<

but when I use

RichTextBox1.Text = Inet1.OpenURL("http://finance.yahoo.com/q/os?s=qqqq&m=2007-04")

it looks like

class="yfnc_h" align="right">11.67<

in the RichTextBox.

What happened to the

Stigmurder3-Apr-07 7:33

Stigmurder

3-Apr-07 7:33

What happened to the what? those two lines of text look the same to me.

Dave Kreskowiak3-Apr-07 8:15

3-Apr-07 8:15

And what is Inet1 defined as? What class?

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Huling3-Apr-07 11:03

3-Apr-07 11:03

Inet1 is an Internet Transfer Control.

Basically, I am loading the webpage into a richtextbox with

RichTextBox1.Text = Inet1.OpenURL("http://finance.yahoo.com/q/os?s=qqqq&m=2007-04")

But a search for "yfs_l10_" will find nothing.

However, if you use View Source in Internet Explorer, "yfs_l10_" will be found.

I don't understand if the text is getting altered by the Internet Transfer Control or the RichTextBox.

Thanks for you help,

Huling

Huling3-Apr-07 11:09

3-Apr-07 11:09

Dave, I now see your confusion which is really the basis of my question.

When I cut and pasted some of the text from Notepad into my post it was automatically changed and the text is missing from my post.

This is the same thing that is happening in my program.

So is there a way to turn off the formatting in the richtextbox and make the text appear as it does in Notepad.

I have tried most of the property settings with no success.

Thanks,

Huling

Dave Kreskowiak3-Apr-07 12:08

3-Apr-07 12:08

No, there isn't. Some of the RTB formatting codes look like something out of HTML. If you want to see all of the HTML, you'd have to use a TextBox to do it. The TextBox doesn't support any kind of formatting so there won't be a problem with it trying to interpret the data (Text) of the document.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Huling4-Apr-07 4:48