|
Hello all... I am trying to make a program in VB that flashes between black and white... basically all I am looking for is a small box on the screen which will be able to flash at a rate of approximately 50-60hz... I was told that directdraw was the best method for this. Does anyone have any idea on how I could start this or some directions to a tutorial for more info.. any help would be greatly appreciated.. thanks a lot
tim
|
|
|
|
|
I have a asp.net datagrid which has a datatable as the datasource. The grid's last row must must always be empty(easy part). My problem is a have to load a dynamic dropdown list to a column in the last row in the grid, i can do that but every time i click on the list it disappears. Problem no.2 i need to display a datetime picker dynamically in the last row of the grid as well but the calendar control is just too big. The code to do all of this is in the ItemDataBound
All help is appreciated
|
|
|
|
|
Hi!
I'm looking for a sound recorder to integrate with my application.
are there any tools available?
Thanks!!!!
|
|
|
|
|
Hi,
I would like to use the F1 and F2 key to set the focus between 2 grids in the form.
Lets say the cursor focus is in DBgrid1, on hitting F1 I want the focus to shift to Dbgrid2.
And again on hiting F2 I want the focus to go back to DBgrid1.
Here is a piece of my code but wont work.
It does not give me an error mssg but wont fire.
If I change it to DbGrid2.Focus = True then I get an error mssg.
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F2 Then
DBGrid2.Item(0, 0).Focus = True
'Dbgrid2.Focus = True
End If
End Sub
|
|
|
|
|
try uncommending 'Dbgrid2.Focus = True or using enabled or visible instead. They may accomplish somthing acceptable without the fuss
|
|
|
|
|
I have problem to reload DataReader in my app. Here is my code:
Private Function ContactView()
Dim DA As New OleDbDataAdapter
Dim DR As OleDbDataReader
objConn.Open()
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.Connection = objConn
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.CommandText = _
"SELECT primary_contact, entity_id, ISNULL(first_name, '') + ' ' + ISNULL(last_name, '') AS Name, ISNULL(company, '') " & _
"AS Company, ISNULL(business_phone, '') AS phone, ISNULL(home_phone, '') AS homePhone, ISNULL(pager, '') AS Pager, " & _
"ISNULL(mobile_phone, '') AS mobilePhone, ISNULL(business_fax, '') AS fax, ISNULL(email, '') AS email " & _
"FROM Contacts WHERE (status = 1) AND client_entity_id = " & client_entityID & " ORDER BY last_name, first_name"
DR = DA.SelectCommand.ExecuteReader
Dim y = 72
Dim primaryContact As Boolean
Dim entity As Int32
Dim fullName, phone, fax, homePhone, cellPhone, email, company, pager As String
Do While DR.Read()
primaryContact = DR.GetBoolean(0)
entity = DR.GetInt32(1)
fullName = DR.GetString(2)
company = DR.GetString(3)
phone = DR.GetString(4)
homePhone = DR.GetString(5)
pager = DR.GetString(6)
cellPhone = DR.GetString(7)
fax = DR.GetString(8)
email = DR.GetString(9)
'create a checked button
If primaryContact = True Then
Dim aImageButton As New Button
With aImageButton
Dim imagePath As String = Path.Combine(Application.StartupPath, "checkbox_checked.gif")
.Image = Image.FromFile(imagePath)
.Name = entity
.Text = ""
.ImageAlign = ContentAlignment.MiddleCenter
.FlatStyle = FlatStyle.Flat
.Location = New Point(10, y)
.Width = 20
.Height = 20
End With
' Attach the Click Event handler
AddHandler aImageButton.Click, AddressOf ImageButtonClickHandler
' Finally, add the control to the Form
tpgContact.Controls.Add(aImageButton)
Else
Dim aImageButton As New Button
With aImageButton
Dim imagePath As String = Path.Combine(Application.StartupPath, "checkbox_blank.gif")
.Image = Image.FromFile(imagePath)
.Name = entity
.Text = ""
.ImageAlign = ContentAlignment.MiddleCenter
.FlatStyle = FlatStyle.Flat
.Location = New Point(10, y)
.Width = 20
.Height = 20
End With
' Attach the Click Event handler
AddHandler aImageButton.Click, AddressOf ImageButtonClickHandler
' Finally, add the control to the Form
tpgContact.Controls.Add(aImageButton)
End If
Dim aButton As New Button
tpgContact.Controls.Add(aButton)
aButton.Text = " "
aButton.Name = entity
aButton.Location = New Point(38, y)
'aButton.DialogResult = DialogResult.OK
aButton.BackColor = Color.LightGray
aButton.Height = 20
aButton.Width = 30
aButton.Font = New System.Drawing.Font("Arial", 7.25!)
AddHandler aButton.Click, AddressOf ContactViewClickHandler
Dim aTextName As New Label
tpgContact.Controls.Add(aTextName)
aTextName.Text = fullName
aTextName.Location = New Point(75, y)
aTextName.Width = 189
aTextName.Height = 20
aTextName.BackColor = Color.White
aTextName.TextAlign = ContentAlignment.MiddleLeft
aTextName.Font = New System.Drawing.Font("Arial", 7.25!)
Dim aTextCompany As New Label
tpgContact.Controls.Add(aTextCompany)
aTextCompany.Text = company
aTextCompany.Location = New Point(267, y)
aTextCompany.Width = 149
aTextCompany.Height = 20
aTextCompany.BackColor = Color.White
aTextCompany.TextAlign = ContentAlignment.MiddleLeft
aTextCompany.Font = New System.Drawing.Font("Arial", 7.25!)
If phone <> "" And fax <> "" And cellPhone <> "" And pager <> "" And homePhone <> "" Then
Dim aCombobox As New ComboBox
tpgContact.Controls.Add(aCombobox)
Dim i = 0
If phone <> "" Or fax <> "" Or cellPhone <> "" Or pager <> "" Or homePhone <> "" Then
If phone <> "" Then
aCombobox.Text = "B: " & phone
End If
If fax <> "" Then
aCombobox.Items.Add("F: " & fax)
End If
If cellPhone <> "" Then
aCombobox.Items.Add("M: " & cellPhone)
End If
If pager <> "" Then
aCombobox.Items.Add("P: " & pager)
End If
If homePhone <> "" Then
aCombobox.Items.Add("H: " & homePhone)
End If
Else
aCombobox.Items.Clear()
End If
aCombobox.Location = New Point(419, y)
aCombobox.Font = New System.Drawing.Font("Arial", 7.25!)
aCombobox.Width = 120
aCombobox.Height = 20
Else
Dim aWhiteText As New Label
tpgContact.Controls.Add(aWhiteText)
aWhiteText.Text = " "
aWhiteText.Location = New Point(419, y)
aWhiteText.Width = 120
aWhiteText.Height = 18
aWhiteText.BackColor = Color.White
End If
If email <> "" Then
Dim aButtonEmail As New Button
tpgContact.Controls.Add(aButtonEmail)
aButtonEmail.Text = email
aButtonEmail.Location = New Point(542, y)
aButtonEmail.Width = 48
aButtonEmail.Height = 20
aButtonEmail.BackColor = Color.LightGray
aButtonEmail.Font = New System.Drawing.Font("Arial", 7.25!)
AddHandler aButtonEmail.Click, AddressOf EmailClickHandler
Else
Dim aWhiteText As New Label
tpgContact.Controls.Add(aWhiteText)
aWhiteText.Text = " "
aWhiteText.Location = New Point(542, y)
aWhiteText.Width = 48
aWhiteText.Height = 20
aWhiteText.BackColor = Color.White
End If
y += 25
Loop
DR.Close()
objConn.Close()
End Function
Private Sub ContactViewClickHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
results = CType(CType(sender, Button).Name, String)
'MessageBox.Show(results)
Dim contactView As New frmContactEdit
contactView.ShowDialog()
End Sub
Public Sub EmailClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
results = CType(CType(sender, Button).Text, String)
Dim mail = "mailto:" & results
'MessageBox.Show(mail)
System.Diagnostics.Process.Start(mail)
End Sub
Public Sub ImageButtonClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
results = CType(CType(sender, Button).Name, Int32)
'MessageBox.Show(results)
Dim DA As New OleDbDataAdapter
objConn.Open()
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.Connection = objConn
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.CommandText = "UPDATE Contacts set primary_contact = 0 WHERE client_entity_id = " & client_entityID
DA.SelectCommand.ExecuteNonQuery()
Dim DA2 As New OleDbDataAdapter
DA2.SelectCommand = New OleDbCommand
DA2.SelectCommand.Connection = objConn
DA2.SelectCommand.CommandType = CommandType.Text
DA2.SelectCommand.CommandText = "UPDATE Contacts set primary_contact = 1 WHERE entity_id = " & results
DA2.SelectCommand.ExecuteNonQuery()
objConn.Close()
ContactView()
End Sub
There are two problems in here, first, when I click the aImageButton, it didn't refresh to the update one. The contactView() in ImageButtonClickHandler not working. Second, IN ContactViewClickHandler, it opens a new forms to edit the info, after this window close, how to update the newest data and reload the dataReader?
Lisa
|
|
|
|
|
The DataReader object returns table rows in a "forward-only" manner. Meaning you can't rewind it and re-read the row that it just returned. The only way to get it to go backwards is to destroy the current DataReader object and create a new one, which will start returning rows from the beginning of the table again.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
where and how to destroy the current dataReader in my app?
Lisa
|
|
|
|
|
In your code, the DataReader that you create in the ContactView function is destroyed when execution reaches the end of the function. A new one is created and destroyed every time you execute ContactView.
In your code, though, you have no way of destroying all the controls you made so you can create new ones with the updated data. I get the feeling that your code IS getting the updated values from the database, but since you never destroyed the controls with the old data, the new controls your creating are being created BEHIND the controls you already have, and are therefore not visible.
IMHO, you've really got to use a DataGrid for this. You'll end up getting the functionality you want with about half the lines code that you've already written, and have yet to write more to get it to really work.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I want to user DataGrid, but how can I have buttons and combobox inside the datagrid?
Lisa
|
|
|
|
|
I'm trying to find a good tutorial on the custom DataGrid's for Windows Forms, but have so far come up emtpy. I keep finding everything under the sun for the ASP.NET DataGrid, though. How sad is that?!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
thanks for your trying..
Lisa
|
|
|
|
|
I am opening a mail merege document from vb.net application at runtime. but the problem is, document is showing all the records in the table. I want to chage the mail merge's sql query at runtime.
Please help.
Thanks in advance.
Regards
Sheel
sheel
|
|
|
|
|
i have a oledb connection to a database which contains 5 tables.
i had given the option to user to select any table.
they will be dispalyed in a list.
i have another listbox in which i want to bind the primary values of the table the user had selected.
i want to do it in run time.
my problem is that i dont know which column in the table are primary keys.
"so is there any method through which i can know which column in a given table is primary key, which is foreign key" basically i want to retrieve the constraint and schema
a code will be more helpful
thanks......
|
|
|
|
|
Help! How to insert icon/image next to menu item?
|
|
|
|
|
this isn't supported in the current incarnation of the winform menuitem, but i believe i read somewhere that it will be supported in v2.0 of the framework.
for now you'll have to subclass the menuitem class and owner draw the menu's yourself. there are tons of examples of how to do this all over the net.
here's an article here on cp that exlpains how to do this and here are the results of a search in the microsoft .net vb language newsgroup.
hope this helps.
-jim
|
|
|
|
|
does any one knew how to add description about the parameters in the function and about function, just like microsoft has did for its in built function.
|
|
|
|
|
It's not support by Visual Basic.NET 2002 or 2003. It is in 2005, though.
You'll need a 3rd party tool to generate the .XML documentation files needed by Intellisense. Liucky for you, one exists right here: VBCommenter PowerToy[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I want to dispaly my boolean variables in my crystal report in checkboxes checked or unchecked.
Do you have an idea how i can accomplish it.
Thank you in advance
|
|
|
|
|
what i typically do in this situation is add an image (checkmark, or checkbox would do) to the report in the place where i want to display the boolean data and only show it if my field value is true.
this should work for you.
-jim
|
|
|
|
|
hi there,
can anybody help me in writing a class, or classes, to read/write .dbf tables?
i mean, not useing .net database connections, but reading/writing the binaries directly?
any article, advice, sample project?
thanks in advance,
Cheers!
Paolo
|
|
|
|
|
What application generated the .DBF file?
It may seem like a stupid question, until you look at this[^]...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
What application generated the .DBF file?
..!!! I've seen the page you linked, correct question!
well, I'd like to read/write shapes'attributes (arcview shapefile attribute table file) and a sample project to start from, even in c# would be great.
cheers!
Paolo
|
|
|
|
|
I have Created Crystal Report. When I export it to the Microsoft Word, the contents inside the crystal report is save into words inside Frames. Any one can tell me the way to omit the Frames. i just want the text without Frames in the microsoft word....
thanks for help...
|
|
|
|
|
Hi .Net Wiz,
I am working on a .Net project where I have to develop an framework for the webpages that has a dynamic menu. I mean the menu gets its names from the database table. the menu shud grow with a addition of rows in the database table. I have to build this in ASP.Net, VB.Net, Oracle. Can anyone help me how I can do this .. so that the menu is present on all the webpages??
Thanks in advance
Kris
|
|
|
|
|