Problem using custom DataGridColumnStyles with DataGridTableStyle - Visual Basic Discussion Boards

Why does everyone come around wanting pre-written code all the time?

A simple Google search for "vb.net capslock" comes up with an example here[^].

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Sorry, but I am beginner...and I dont understand this exaple and its use..Can you help me more?

All the examples are going to be just like this. They all have to make calls directly in the Win32 API to get the current status of the lock keys, CapsLock, NumLock, and ScrollLock.

Your best understanding is going to be putting your code together and calling one of the functions, such as GetLockStatus, and step through the code in the debugger.

In the posted example, all you need to worry about calling is GetLockStatus.

Dim status As Boolean
status = GetLockStatus(ToggleKey.CapsLock)

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Thanx Dave Kreskowiak..now I understand! Before, I have problems with the returning value of function (I didnt understand that its boolean) and the way of calling!
And I use google as good as I can..I try.. Smile | :)

Thanks again..

I want the VB.net code for capture of an image taken by a web camera.

-Shonan Vora

If you're just going to post a demand for code, a Google[^] search for "capture webcam image vb.net" is your next stop.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

-- modified at 10:28 Sunday 22nd January, 2006

Hi ,

I am sending "MyReport" direct to printer using .NET 2003

//////////////////////////////////////

Dim crobj as New rptMyReport

crobj.PrintToPrinter(1, False, 0, 0)

////////////////////////////////////////////

I need to get the total page count in this case.

I need immediate response.

Thanks

Madni Abbasi

I have a user control which includes a Datagrid that needs one column for each hour of the day for five categories... so my datagrid would have 5 rows and 25 columns. The 1st column is the category name and is no problem. Columns 2-25 store the hourly figures and what I want to do is use a custom DataGridColumnStyle on these but when I try to cast the DataGridTaleStyles.GridColumnStyles for each of these columns to my custom DataGridColumnStyle it gives me an invalid cast error.

Since that's probably as clear as mud here's the code I have:

Public Class vbsDataGridTextBoxColumn
Inherits System.Windows.Forms.DataGridTextBoxColumn

Public Sub New()

'This is just to get it working - we'll set more properties later.
Me.Alignment = HorizontalAlignment.Right
Me.TextBox.MaxLength = 6
Me.Width = 50

End Sub

End Class

That's the custom Column Style (we'll set more properties later)... and here is the method that runs in the user control to change column types on the fly as the DataGrid is populated. (We need to do this as the DataGrid can switch from being editable or not depending on which day's data is being edited) I've commented the line in red that throws the exception.

Private Sub vbsDataGrid_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles vbsDataGrid.DataSourceChanged

Dim i As Int32 = 0

Dim cm As CurrencyManager = Me.BindingContext(Me.vbsDataGrid.DataSource)
Dim ts As New DataGridTableStyle
ts.MappingName = DirectCast(cm.List, DataView).Table.TableName

'Make the dataGrid use our new tablestyle and bind it to our table
Me.vbsDataGrid.TableStyles.Clear()
Me.vbsDataGrid.TableStyles.Add(ts)

'Now create a ColumnStyle for each of the hourly figure columns (1-24) in the datagrid using our custom class. Note the first column (0) doesn't need a custom style.

Dim tbc As New vbsDataGridTextBoxColumn

For i = 1 To 24
'***THIS IS WHERE I GET AN INVALID CAST ERROR***
tbc = CType(ts.GridColumnStyles(i), vbsDataGridTextBoxColumn)

tbc.HeaderText = "Hour " & i.ToString()
Next
End If
End Sub

Anyone know why this would happen? If I create 'tbc' as a normal DataGridTextBoxColumn the cast has no problem - it's only when I use my custom DataGridTextBoxColumn class I get the error.

Hope someone can help - I'm darned if I know what's going on!

Mike

I think you're looking for something more like:

For i = 1 to 24
    ts.GridColumnStyles(i).HeaderText = String.Format("Hour {0}", i)
Next

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dave,

I may have missed your point but the line it's falling over on is the one above - where I cast each GridColumnStyle in my 24 columns to my custom DataGridTextBoxColumn object - this line:

tbc = CType(ts.GridColumnStyles(i), vbsDataGridTextBoxColumn)

I don't understand why it falls over on this line since my custom column style is inherited from a DataGridTextBoxColumn and I can cast ts.GridColumnStyles(i) to a normal DataGridTextBoxColumn object without a problem - it should surely work.

Have I missed something here?

Cheers,

Mike

-- modified at 1:44 Monday 23rd January, 2006

You might want to do something like this to debug it

For i = 1 to 24
    Console.Writeline( String.Format("Index {0} is a {1}", i, ts.GridColumnStyles(i).GetType().FullName) )
Next i

and see what your actually trying to cast to your custom TextBoxColumn.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

directory class and directoryinfo call, even the file class and the other related class didn't help me.

my problem is: how to call a file exist in the system folder?
what i mean...how can i get the system root of the current os.
in the normal way we can use %systemroot%....
but writing like this way as a path give an exeption.
so how can i get the system root of the current machine???

thanx..

Militiaware
Faris Madi

%SystemRoot% is an environment variable.

If you want the path to the System Folder, use the Environment class, GetFolderPath[^] method to return the path. An example is on the page in the link.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

If I understand your question this will help you:

Dim temp as string
temp = System.IO.Path.GetFullPath("example.jpg")

'temp = "C:\..directory of your .exe..\example.jpg"

in the position of ("exaple.jpg") you can write everything but no ("")

if i got the IP address of some one.
how can i get the location of it.
because i know the first bits ex: 120.193 refer to the network...
so can i at least get where is that network located Sleepy | :zzz:

?

Militiaware
Faris Madi

No, not accurately at least. About the best you can do is get to a region of a state or small country.

IP Addresses are assigned arbitrarily without reguard to a physical location.

Read this[^] for a little explanation.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Hi,
I Have a menu, and a set of categories in a database table.
For each of the categories, I'm generating some menuitems at runtime.

Because the total amount can vary, the menuitems are generated in a loop, thus not defined globally in the class, IE:

<br />
Private Sub SetupMenus()<br />
<br />
Dim myItem as MenuItem<br />
<br />
For i as integer = 0 to datatable.Rows.Count -1<br />
   myItem = new MenuItem<br />
   myItem.Text = datatable.Rows(i).Item("CategoryName")<br />
Next<br />
<br />
End Sub

But if the menuitems are generated at runtime, then how do I generate an OnClick event for them and point it to a procedure?

Any response gratefully appreciated.

Andy

Create an EventHandler for the procedure, and add it to the Click event of the item.

---
b { font-weight: normal; }

So what line of code do I need to add to the code above?
I know in C#, its something like myItem.OnClick = new EventHandler(....)
But that doesnt work in VB.Net

You're looking for AddHandler[^] and RemoveHandler[^].

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Right now i am trying to make a calculator that can compute more than two integers. So far my equal sign button is big if statement that decides which button was used and which action needs to be taken to compute the right answer.

If btn = 1 Then
total2 = total1 + Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 2 Then
total2 = total1 * Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 3 Then
total2 = total1 - Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 4 Then
total2 = total1 / Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 5 Then
total2 = total1 ^ Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 6 Then
total2 = total1 * (10 ^ Val(txtDisplay.Text))
txtDisplay.Text = total2
total1 = 0
ElseIf btn = Text Then

End If

Dim s As String
s = String.Format("{0:n2}", total2)
txtDisplay.Text = s

i am having touble making the integers stay in the right places to compute more than two numbers. This my plus button. (I am still trying to figure it out)

If Not total1 = Val("") Then
txtDisplay.Text = total1
ElseIf total1 = Val("") Then
txtDisplay.Text = number1
End If

I am just starting to program and will be grateful for anybody's help

doing_the_right_thing_sometimes_isn't_doing_the_right_thing

Hi guys,

I added Reference (COM): 10.0 Microsoft Excel Library

I wrote a .xls file, and now I want to send values in cells...
I prefer the use of EXISTING file and not its constuction by code, because it includes a lot of
properties which are difficult for me to make them by code (merge cells etc.).

So, I need help to open this existing .xls file, and send values to the cells. I know the way to send these values by code, I dont know how I make the connection with the .xls file!

Thanks in advance.. Big Grin | :-D

-- modified at 1:44 Saturday 21st January, 2006

Exactly the same way. All you have to do is tell your Excel object to open the file first.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

kostasdiktia2 wrote:
I know the way to send these values by code, I dont know how I make the connection with the .xls file!

http://www.connectionstrings.com/[^]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = Ctype(xlBook.Worksheets(1), Excel.Worksheet)

...
xlSheet.Cells(1,2) = "ok" ' # Make your changes #
...

xlSheet.Application.Visible = True

xlSheet.SaveAs("C:.......\example.xls")

Please tell me the code, to open (connect with) the file: C:\...\Print.xls

Thanx for your care... Smile | :)