Visual Basic

2-Jul-07 3:46

I'm creating a control and don't want it to be resizable. Most people say to hide it from the designer and throw an error when it's called, but I can't do that because the Size property isn't overrideable! Right now I set the size back the the default height and width in the resize event, but this may be confusing to the user as it looks resizable.

Thanks,
Nick

Fluent in VB, Attempts to speak C#, Python, English Wink | ;)

originSH2-Jul-07 5:07

originSH

2-Jul-07 5:07

In c# it's the 'new' modifier.

http://msdn2.microsoft.com/en-us/library/435f1dw2(VS.80).aspx[^]

Not sure about VB.Net though.

Nick Rioux2-Jul-07 5:14

2-Jul-07 5:14

Thanks! I ran the example code there through a translator and found out you use the shadows keyword.

Fluent in VB, Attempts to speak C#, Python, English Wink | ;)

originSH2-Jul-07 5:38

originSH

2-Jul-07 5:38

great

Luc Pattyn2-Jul-07 6:31

Luc Pattyn

2-Jul-07 6:31

not great, but shadows !

Luc Pattyn

[My Articles] [Forum Guidelines]

Re: Hide a property that isn't overridable... [modified]

originSH2-Jul-07 22:44

originSH

2-Jul-07 22:44

TwoFaced2-Jul-07 6:41

TwoFaced

2-Jul-07 6:41

You can easily fix a controls size by overriding SetBoundsCore. It looks like this.

Protected Overrides Sub SetBoundsCore(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal specified As System.Windows.Forms.BoundsSpecified)
    Const fixedWidth As Integer = 50
    Const fixedHeight As Integer = 50

    MyBase.SetBoundsCore(x, y, fixedWidth, fixedHeight, specified)
End Sub

I know changing the size back in the resize event will also work, but doing it that way actually allows the control's size to be changed and then it quickly changes it back. Overriding SetBoundsCore will prevent the change from ever occurring.

Convert textbox value to Null if no entry in the TextBox vb.net

Vimalsoft(Pty) Ltd2-Jul-07 3:31

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 3:31

hi All
i have a textbox that sometimes Should be Null and my table field is Nullable. When the textbox has no Entry i want to put Null in my Field.

thanks

Vuyiswa

Colin Angus Mackay2-Jul-07 3:38

Colin Angus Mackay

2-Jul-07 3:38

Then check the Text property on the text box. If it is an empty string String.Empty then put null (DBNull.Value) in your column, otherwise put the value of the Text property in.

Upcoming events:
* Glasgow: Mock Objects, SQL Server CLR Integration, Reporting Services, db4o, Dependency Injection with Spring ...

"I wouldn't say boo to a goose. I'm not a coward, I just realise that it would be largely pointless."

Ready to Give up - Your help will be much appreciated.

My website

Re: Convert textbox value to Null if no entry in the TextBox vb.net

Vimalsoft(Pty) Ltd2-Jul-07 3:49

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 3:49

Thanks you For your reply.
i understand the Logic, if the textbox is Empty string the set it to Null, but code wise i dont understand. please post me a skeleton code to learn from it.

Thanks Colin

Vuyiswa

Nick Rioux2-Jul-07 4:18

2-Jul-07 4:18

If textbox.text = nothing then
  field = "Null"
End If

Just make sure you replace textbox and field.
You also might want to use textbox.text.trim to remove any whitespace on the ends of the text to help 'idiotproof' it.

Fluent in VB, Attempts to speak C#, Python, English Wink | ;)

Re: Convert textbox value to Null if no entry in the TextBox vb.net [modified]

Vimalsoft(Pty) Ltd2-Jul-07 4:44

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 4:44

Hi when i run my code it tells me "Cant Store Null in Extension Field" , but my table does Accept Null in that Field.
Here is the code in my save Button for Field Extension.

Dim newRow As DataRow = DataSet11._PROPERTY.NewRow<br />
                'newRow("Num_key") = CStr(txtnumkey.Text)<br />
                If txtextension.Text.Empty.Trim = Nothing Then<br />
                    newRow("Extension") = "Null"<br />
                Else<br />
                    newRow("Extension") = txtextension.Text<br />
                End If<br />

-- modified at 10:51 Monday 2nd July, 2007

Vuyiswa

Nick Rioux2-Jul-07 4:51

2-Jul-07 4:51

Here's a problem:
If txtextension.Text.Empty.Trim = Nothing Then
You don't want txtExtension.Text.Empty. That returns nothing itself, so the condition will always be true. You just need txtextension.Text.Trim, which returns the textbox's text with now whitespace at the ends.

Fluent in VB, Attempts to speak C#, Python, English Wink | ;)

Re: Convert textbox value to Null if no entry in the TextBox vb.net

Vimalsoft(Pty) Ltd2-Jul-07 5:04

Re: Convert textbox value to Null if no entry in the TextBox vb.net [modified]

2-Jul-07 5:04

i have remove the Empty keyword. and when i try to save in the dataset,
it Gives me this Error

<br />
unable to Add the Record<br />
System.FormatException:Input string was not a Correct Format.<br />
at System.Number.Parse(string s,NumberStyles style,NumberFormatifno info)<br />
at system.int32.Parse(string s,NumberStype style,IFormatProvider provider)<br />
at System.String.system.IConvertible.Toint32(IFormatProvider Provider)<br />
at system.convert.Toint32(Object Value)<br />
at System.Data.Common.Int32Storage.Set(int32 record,Object Value)<br />
at System.DataCoulmn.set_Item(int32 record,Object Value) couldnt store<Null> in Extension Column. Expected type int32<br />

.
Please Sir Remember that my Field is numeric and it Allow Null, and in my Field there is a Default that i bind to the Table for Null Values if there is none and the table Defination is Nullable.

Thanks

Vuyiswa

Nick Rioux2-Jul-07 5:09

2-Jul-07 5:09

The table is numeric. While it may allow a null value, it doesn't allow "null" as a string, which is what I was telling you to do. Instead of using

If txtextension.Text.Empty.Trim = Nothing Then<br />
newRow("Extension") = "Null"<br />
Else

you can set the row to something like -1, 0, nothing, or another default value you choose. You can also set it to dbnull.value

Fluent in VB, Attempts to speak C#, Python, English Wink | ;)

Re: Convert textbox value to Null if no entry in the TextBox vb.net

Dave Kreskowiak2-Jul-07 5:21

Re: Convert textbox value to Null if no entry in the TextBox vb.net [modified]

2-Jul-07 5:21

Aren't you looking to put DbNull.Value in there instead of the string "Null"??

A guide to posting questions on CodeProject[^]

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

Vimalsoft(Pty) Ltd2-Jul-07 5:48

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 5:48

Well Dave you Solved the Problem, here is a Complete Code

<br />
Dim newRow As DataRow = DataSet11._PROPERTY.NewRow<br />
                newRow("Num_key") = CStr(txtnumkey.Text)<br />
                If txtextension.Text.Trim = Nothing Then<br />
                    newRow("Extension") = DBNull.Value<br />
                Else<br />
                    newRow("Extension") = txtextension.Text<br />
                End If<br />

and Now i have i have to save the Dataset to the Database by with the Update method. here is my code

<br />
Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
        'save the datasource Changes<br />
        If mblnIsDirty Then<br />
            If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
                '    Checking for Error in the dataset<br />
                Try<br />
                    SqlDataAdapter1.Update(DataSet11, "Property")<br />
                Catch<br />
                    MessageBox.Show("Error saving Data in the DataBase", "Property")<br />
                   <br />
                End Try<br />
            End If<br />
        End If<br />

if i try to update, it Brings

<br />
An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll<br />
<br />
Additional information: Missing SourceTable mapping: 'Property'<br />

-- modified at 12:02 Monday 2nd July, 2007

Vuyiswa

Dave Kreskowiak2-Jul-07 12:42

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 12:42

Vuyiswamb wrote:
SqlDataAdapter1.Update(DataSet11, "Property")

Apparently, you don't have a datatable in DataSet11 (very bad name by the way), called "Property".

A guide to posting questions on CodeProject[^]

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

Vimalsoft(Pty) Ltd2-Jul-07 19:40

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 19:40

Thanks Dave for your time.
yes i know that the Table "Property" named i used is very Bad, but its the name of the table, sometimes to find my way around in my code i had to prefix it with an underscore, because Property is a keyword in VB. i have redefined the Dataset11 and it does not give an error anymore, but still the data does not reflect in my table.

<br />
      Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
        'save the datasource Changes<br />
        If mblnIsDirty Then<br />
            If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
                '    Checking for Error in the dataset<br />
                Try<br />
<br />
                    SqlDataAdapter1.Update(DataSet11, "Property")<br />
                Catch ExSQL As System.Data.SqlClient.SqlException<br />
                    MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
                End Try<br />
            End If<br />
        End If<br />

let me find a way out of this, if i dont i will shout

Vuyiswa

Dave Kreskowiak3-Jul-07 2:11

Re: Convert textbox value to Null if no entry in the TextBox vb.net

3-Jul-07 2:11

Vuyiswamb wrote:
yes i know that the Table "Property" named i used is very Bad,

No, I said the name of the DataSet object is very bad.

Vuyiswamb wrote:
sometimes to find my way around in my code i had to prefix it with an underscore, because Property is a keyword in VB.

So? "Property" isn't used to describe a .NET object anywhere in your code. It's just the name of a DataTable, which is perfectly legal.

Vuyiswamb wrote:
but still the data does not reflect in my table.

You're going to have to step through the update code and look at the values of variables so you know what your code is thinking. Perhaps that "dirty" variable isn't set? Perhaps there are no changes in the "Property" table in your DataSet?

A guide to posting questions on CodeProject[^]

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

Vimalsoft(Pty) Ltd3-Jul-07 2:33

Re: Convert textbox value to Null if no entry in the TextBox vb.net

3-Jul-07 2:33

Sorry About that Dave, the Update method was working just that there was Data comming into my table, so after inserting new records , when i checked the last Record, it was not what i used for testing. so i searched them and i found them

Thank you Dave for you time. let me Paste my update code for user who will have the same Problem. here is the Solution.

<br />
   If mblnIsDirty Then<br />
            If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
            <br />
<br />
                If checkerrors() Then<br />
                    MessageBox.Show("Your Dataset has Errors")<br />
                Else<br />
                    SqlDataAdapter1.Update(DataSet11, "Property")<br />
                End If<br />
<br />
            End If<br />
        End If<br />

here is the CheckErrors() function code

<br />
Private Function checkerrors() As Boolean<br />
<br />
<br />
        Dim table As Data.DataTable<br />
        Dim row As Data.DataRow<br />
        SqlDataAdapter1.Update(DataSet11, "Property")<br />
        If DataSet11.HasErrors Then<br />
<br />
            For Each table In DataSet11.Tables<br />
                If table.HasErrors Then<br />
                    Return True<br />
                    For Each row In table.Rows<br />
                        If row.HasErrors Then<br />
                            MessageBox.Show("Dataset has Errors")<br />
                            ' Process error here.<br />
<br />
                        End If<br />
                    Next<br />
                ElseIf table.HasErrors = False Then<br />
                    Return False<br />
                    MessageBox.Show("Dataset has no Errors")<br />
                End If<br />
            Next<br />
        End If<br />
    End Function<br />

Thanks for your time and Help

Vuyiswa

Vimalsoft(Pty) Ltd2-Jul-07 5:27

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 5:27

So if i choose '0' will it Show in the '0' table? i need it to show Null. how can i do that one

Vuyiswa

Vuyiswa

Dave Kreskowiak2-Jul-07 5:31

Re: Convert textbox value to Null if no entry in the TextBox vb.net

2-Jul-07 5:31

I think you want to replace the "Null" string with DbNull.Value.

A guide to posting questions on CodeProject[^]

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

Nick Rioux2-Jul-07 5:33

2-Jul-07 5:33

If you need null as a string, you can't use a numeric table.
"text" != number
However, you can set it as a dbnull value - DbNull.Value

Fluent in VB, Attempts to speak C#, Python, English Wink | ;)