Linkbutton not adding into table cell programmatically( problem ) - Visual Basic Discussion Boards

How can we resize and move a label control in all directions in dot.net environment at runtime on a windows form.

Size and location properties? Not sure what you're confused on here..

Any suggestions, ideas, or 'constructive criticism' are always welcome.

to auto resize a label you have to set AutoSize property to true.
to move ?
you mean to move with mouse ?
google it you can find many solutions.

It's amazing what a little searching can turn up...

Create your own runtime movable Windows Forms controls[^]

A guide to posting questions on CodeProject[^]

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

I need to create a window service which can track or log the web sites i have visited. Can anyone help? It's urgent

Ahh, the urgent questions. If you want it to work with all browsers you'll have to go the sniffer route. There's plenty on Google about getting IE's current URL so I won't go into that.

You can either write your own Proxy server, or use one off-the-shelf.

A guide to posting questions on CodeProject[^]

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

hi all,

iam creating table for display data dynamically using asp.net with vb.net 2.0
here is problem is that iam linkbutton not added to table cell .

can any body help me that where iam doing mistake here is my code .

Dim noOfTimes As Integer = 0
            Dim CurrentName As String = Nothing
            Dim trow As TableRow = New TableRow
            
            For d = 0 To 31
                Dim tbcell As TableCell = New TableCell
                'Iterate to see which cells have a booking against a name
                If testarray(d) = Nothing Then
                    'No booking case
                    CurrentName = Nothing
                    tbcell.BackColor = Color.FromName("#FFFFFF")
                Else

                    'booking exists, find noOfTimes it is booked for same employee
                    CurrentName = testarray(d)

                    'search subsequent entries for same name
                    Dim j As Integer
                    For j = d + 1 To 31
                        ' 
                        If testarray(j) = CurrentName Then
                            'same name repeated
                            noOfTimes = noOfTimes + 1
                        Else
                           'name is not repeated, print name and advance d counter by number of times
                            Response.Write(" Span of " + noOfTimes.ToString() + " " + CurrentName)
                            d = d + noOfTimes

                            'exit for loop using the statement below
                            Exit For
                        End If
                    Next

                    Dim myHyperLink1 As LinkButton = New LinkButton()
                    myHyperLink1.ID = "myHyperLink1"
                    myHyperLink1.Text = "Click Here dear "
                    myHyperLink1.PostBackUrl = ""
                    AddHandler myHyperLink1.Click, AddressOf OnClickLink
                    ' tbcell.BackColor = Color.FromName("#CCCCCC")
                    tbcell.ColumnSpan = noOfTimes
                    tbcell.Controls.Add(myHyperLink1)
                    noOfTimes = 0
                End If

                tbcell.Text = "&nbsp;"
                trow.Cells.Add(tbcell)
            Next

            Table1.Rows.Add(trow)

please suggest me where iam doing mistake where i have to added linkbutton creation code ?

best regards
Rameez
thanks in advance

Try the ASP.Net forum.

Hello,

Maybe a stupid question.

When i read from my database is do for example myreader.getstring(15) when i do this i read out the colom 15 that is in the record.

My coloms are bigger than 20 so now i have the problem when i try to Read for ex. Myreader.getstring (21) that the matri is not big enough.

Can anyone tell me how i can read out bigger than 20. Maybe change the dim but i dont know where.

My read programm for example :

Dim cnstandaardinstellingen As New SqlConnection(connectionstring)
Dim cmdstandaardinstellingen As New SqlCommand

cnstandaardinstellingen.Open()

Dim strQuerystandaardinstellingen As String = "select * from instellingen where hotel ='" + hotel + "'"
Dim myCommandstandaardinstellingen As New SqlCommand(strQuerystandaardinstellingen, cnstandaardinstellingen)
Dim myReaderstandaardinstellingen As SqlDataReader = myCommandstandaardinstellingen.ExecuteReader()
myReaderstandaardinstellingen.Read()

ticketprinterport = myReaderstandaardinstellingen.GetString(12)
Startgroup = myReaderstandaardinstellingen.GetString(21) --> here there is a error that the Matrix is not big enough.

myReaderstandaardinstellingen.Close()
cnstandaardinstellingen.Close()

Thanks.

DCA

DCAUB wrote:
When i read from my database is do for example myreader.getstring(15) when i do this i read out the colom 15 that is in the record.

The columns are zero indexed, so myReader.GetString(15) will return the 16th column.

DCAUB wrote:
here there is a error that the Matrix is not big enough.

That does not sound like any error message I recognise. Please copy and paste the actual error message.

DCAUB wrote:
select *

This is bad practice. You should always list the column names, that means that if the database changes your program will still work. (Unless the column has been removed)

DCAUB wrote:
where hotel ='" + hotel + "'"

This is also bad practice, your code is susceptable to a SQL Injection attack. You should at the very least use parameterised queries to protect yourself.

Recent blog posts:
*SQL Server / Visual Studio install order
*Installing SQL Server 2005 on Vista
*Crazy Extension Methods Redux
* Mixins

My Blog

Hello,

Thanks for answering my question.

I have found the problem. There Where 21 colomns, my mistake forgotten to count from 0 but i started from 1 so there was no 21 colomn.

Can you please give me a small example how i can optimize my SQL commands. for example where hotel ='" + hotel + "'"

Thanks for helping me further.

Best regards

DCA

DCAUB wrote:
Can you please give me a small example how i can optimize my SQL commands

See this article on SQL Injection Attacks[^] and read the section on Parameterised Queries. In fact, you should read the whole thing in order to fully protect yourself.

Recent blog posts:
*SQL Server / Visual Studio install order
*Installing SQL Server 2005 on Vista
*Crazy Extension Methods Redux
* Mixins

My Blog

I checked in msdn forum as well but there is one thread still pending not getting the answer of the similar problem, so I thought of posting it here.

Lets get the picture of the problem first.

1. I have a form called cat where I have one field called CatName where I save the data.

2 I have another form where I have got Combo box where I load cats when form loads.

Now question is imagine I have more than 40 fields in the form 2 where user filled up 39 fields but when he came to cats combo box then he found that one cat is not there so he opens cat form to add the new cat in it.
Then how can i acheive this without opening a new form.

Here is what i have tried so far

this is the sub where i load cats in combobox:
Public Sub LoadCats(ByVal cboCats As ComboBox)
Dim objdb As New clsObjDB
Dim ds As New DataSet
Dim str As String
cboCats.Items.Clear()
str = "Select * from cat order by catID desc"

ds = objdb.getDataset(str)

Dim dt As DataTable
dt = ds.Tables(0)
For Each row As DataRow In dt.Rows
cboCats.ValueMember = row("CatID")
cboCats.Items.Add(row("CatName"))
Next
End Sub

Now in cat I tried

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim objdb As New clsObjDB
Dim str As String

If txtCatName.Text.Trim = "" Then
MessageBox.Show("Enter the Cat Name")
txtCatName.Focus()
objdb = Nothing
Exit Sub
End If
str = "Insert into cat(CatName)values('" & txtCatName.Text & "')"
objdb.ExecuteQuery(str)
MessageBox.Show("Success")
'*****************************************
'Now my save is finished so over here i tried loading of cbocats
Dim frm As dog
'********* Here is the problem I can't do new here because the user wants to stay on the same page he was working on.

LoadCats(frm.cboCats)
Me.txtCatName.Text = ""
End Sub

Hope you guys get the point, I am very poor in explaining these sort of things....

Thanks in advance

Blog for Programmers http://www.rprateek.blogspot.com

rprateek wrote:
Dim dt As DataTable
dt = ds.Tables(0)
For Each row As DataRow In dt.Rows
cboCats.ValueMember = row("CatID")
cboCats.Items.Add(row("CatName"))
Next

Instead of adding each cat to combobox
Why dont you set datasource, displaymember and valuemember?

If you are using a different form to add, update and delete from your cats catalog, just call that form from your cat form (as you are doing now) using showdialog and after that, just call your loadcats again to refill combobox
I didnt really understand what you are doing, but this should work

Alexei Rodriguez

ya i understand your point but i didn't mean that..

you can try it yourself I just want is one form for eg form1 open where we have cbobox where we have cats.

now as per your advice i did datasource and data member .

ok i opened the dialog box to insert new cat.

Now how would you load the cats in the same form called form1 that is open.

where you have to do following to load cats
LoadCats(frm.cboCats)

but if you don't do frm= new frmCats then it will show error ..... so how to overcome this.?????????

Blog for Programmers http://www.rprateek.blogspot.com

hey guys please have a look into this

Blog for Programmers http://www.rprateek.blogspot.com

Hi, thanks for looking
I need to minimizee all maximized windows
I tried this and it kind of works:

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each p As Process In Process.GetProcesses
            ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_MINIMIZE)
        Next
        Me.WindowState = FormWindowState.Normal
End Sub

The thing with this is that i dont want to iterate thru each process

Now, im trying the sendkeys function to send Window + D to minimize all open windows, but i cant find the window representation, ive found this:
SendKeys.Send("(^{ESC}{D})")
But this doesnt do nothing on my pc, maybe because of my keyboard settings or something

Does anyone have any other suggestions??

Alexei Rodriguez

Hi Alexei,

Use the following code:

<br />
Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32)<br />
<br />
Public Sub MinimizeAll()<br />
    keybd_event(&H5B, 0, 0, 0)<br />
    keybd_event(&H4D, 0, 0, 0)<br />
    keybd_event(&H5B, 0, &H2, 0)<br />
End Sub<br />

The first line declares the API. Next piece of code is a method which we can call anywhere to minimize all windows...

I hope this would be helpful.

John Adams
ComponentOne LLC.
www.componentone.com

Thanks for your answer, it works great

I am trying to restore my window program after all wndows are minimized

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Timer1.Enabled = False
        Me.MinimizeAll()
        Me.WindowState = FormWindowState.Normal
End Sub

But this doesnt work
I tryed putting the current thread to sleep for a second, but didnt work either, it looks like keys are not being processed imediatelly, do you know of any workaround?
All i need to do is to minimize all windows and restore the window of my program

Thanks in advance

Alexei Rodriguez

I have a button with a call to the minimizeall method.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MinimizeAll()
    Timer1.Interval = 500
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Timer1.Enabled = False
    Me.WindowState = FormWindowState.Maximized
End Sub

Works fine. that way. I tried your method and through the button click, but there is a timing issue with the minimizing and the maximizing. Break them out into sep routines and it works fine.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

Yes, enabling a timer to restore my window after the call to the minimize works fine

I guess the keys are not imediatelly processed and calling thread.currentthread.sleep(1000) stops the whole app and makes no difference Frown | :(

There must be some way to force the keys to be processed

Thanks for the tip

Alexei Rodriguez

Take a look here
http://www.codeproject.com/KB/system/Hotkeys.aspx[^]

Is there a better way than this to parse through a string to break up the vatious elements?

Example of what I'm doing now...

Dim strTemp As String
Dim tst,tst1,tst3,tst4,tst5,tst6,tst7 As String
Dim Name1,Name2,Name3,,Name4,Name5,Name6,Name7 As String

strTemp = "Name1:Name2/Name3.Name4.Name5.Name6.Name7"
tst = strTemp.IndexOf(":")
Name1 = strTemp.Substring(0, tst)
tst1 = strTemp.IndexOf("/")
Name2 = strTemp.Substring(tst, tst1 - tst)
Name2 = Name2.TrimStart(":")
tst2 = strTemp.IndexOf(".")
Name3 = strTemp.Substring(tst1, tst2 - tst1)
Name3 = Name3.TrimStart("/")
tst3 = strTemp.IndexOf(".")
Name4 = strTemp.Substring(tst2, tst3 - tst2)
Name4 = Name4.TrimStart(".")

There must be a better way, what am I missing??

TIA
Rafone

Statistics are like bikini's...
What they reveal is astonishing ...
But what they hide is vital ...

Use the Split[^] function to automatically split the string up into an array.