Gé48

Hi, had same problem, solved it by using a label as a line. The label can be put on top of the other controls and it's position can be changed with the timer.

Hi, I think this is a piece of code you could use, it checks for drives being present (Fixed, Network, NoRootDirectory, Ram, Removable, Unknown) In the code I use it to get the driveletter of a Removable device if present. Dim drv As DriveInfo For Each drv In DriveInfo.GetDrives If …

Hi, if I get your meaning right you just have clear the combobox on formload. Private Sub Add_Material_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmbMaterialClass.Items.Clear() ComboBoxMaterialClass() End Sub

Hi, you could use the cellclick event to do that, so when you click on any cell Button2 will enable and Button1 disable. To change that again something else will need to happen. Private Sub DataGridView1_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick Button1.Enabled = False Button2.Enabled = True End …

Hi, I am working on a project with AxWindowsMediaPlayer as well. Where you use ListBoxes I use Listviews. In my project if the index of the current song is the same as the items count in the listview it will stop. If ListViewTracks.Items.SelectedIndices(0) = ListViewTracks.Items.Count Then ButtonStop.PerformClick() End If

Hi, instead of all the textboxes you could make use of a datagridview. Would be a lot easier for what you want to do.

Hi, this is what I figured out some time ago, for me it works ok. To edit cells outside of the dgv event make use of textboxes. Use the dgv cellclick event to read data from the selected row into them. Edit the data in the textboxes and use the …

Hi, it's like Reverend Jim says. If you are getting your data from a textfile you could do it like this Dim strTemp As String = My.Computer.FileSystem.ReadAllText("C:\TempText.txt") 'where ever you get your text from Dim lines() As String = Split(strTemp, vbCrLf) For Each line In lines For i = 0 …

Hi had the same problem with the ProgressBar is pretty complicated, so I ended up creating my own BAR. I used a Label as bar, because I can give it the size I want, put tekst in it, and give it the Back- and ForeColor I want. Also a Timer …

The motherboard has a speaker connection on it, if a beeper or speaker is connected, then it will give a beep at startup. The logic, it just lets you know it's starting up, is all.

This solved a simular problem for me is a different appraoch but it does what you want it to do Public Class Form1 Dim ButClicked As Integer = 0 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Button1_Click(sender As System.Object, e …

Is the right driver for it installed?

This works for me, even if there is text in one or more of the cells On Error Resume Next For i = 0 To DataGridView1.CurrentRow.Index sum = sum + DataGridView1.Rows(i).Cells("Column3").Value Next i the cells

hi, for the hdd and power lights just reverse the white and coloured connectors, can't do any harm. for switching the pc off keep pressing the powerswitch for about 5 secs. the hd 7770 has an extra power connector on it, did you connect it to the psu ? try …

is a problem with laptops if there is no option in the system bios to change it then better forget about it

You could use the TextChanged property of the textboxes. This code will change all first letters to upper case (ProperCase) as soon as text is put into your textboxes. Instead of ProperCase, UpperCase or Lowercase can also be used. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles …

The length of the cable can be an issue, as well as the quality of it. Depends also on the hardware you have.

Since windows was installed on another pc it probably has a problem recognizing the new hardware. Have you tried starting up in save mode, then windows won't load the drivers. If that works you can uninstal the drivers for video, audio and so on. Then see what happens when you …

Check if anything came loose because of dropping it, like ram modules or connectors.

Hi, you could use a code like this, it will return the name of the button you click on. Private Sub RadioButton1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1.MouseClick, p2.MouseClick, p3.MouseClick, p4.MouseClick Dim str As String = "" Dim text As RadioButton = sender str = text.Name Label1.Text …

What do you mean with adapter to connect to printer port?

Use a loop to run through all the rows in your datagrid. You could use a code like this in the button routine. For i = 0 To DataGridView1.CurrentRow.Index - 1 DataGridView1.Rows(i).Cells("Column4").Value = "OUT" Next

The beeps you hear at start up are a code that identifies a problem because your display can't show any messages. Look up the meaning in the documentation of your desktop. I could not quite make out the sequence of the beeps in your video.

Hi, if you capture an image you could refer to the location where the image is kept. Maybe use a button with the code PictureBox1.ImageLocation = ("C:\where your image is")

Don't know if this is what you want, but there are cursors available in Windows. You can use them by putting this line in your Form.load Me.Cursor = New Cursor("C:\Windows\Cursors\arrow_rl.cur") Just look them up in that folder, not all of them work out

Hi, as far as I know you will need a timer to get the text scrolling. But a scrolling text like for news in television is easy to make. Give your Form the size you want it to be and the location where you want it to be on your …

Hi, I use this to put listview items in textboxes (3 in my case) by clicking on an item in my listview. Private Sub listview_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged, ListView2.ItemSelectionChanged, ListView3.ItemSelectionChanged TextBox1.Text = e.Item.Text TextBox2.Text = e.Item.SubItems(1).Text TextBox3.Text = e.Item.SubItems(2).Text End Sub

Hi, maybe this helps you Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim temp As String = "item" DataGridView1.Rows.Add(3) ' number of rows you want DataGridView1.Rows(0).Cells("Column1").Value = temp DataGridView1.Rows(1).Cells("Column1").Value = temp DataGridView1.Rows(2).Cells("Column1").Value = temp End Sub

Hi, is the format for time "00:00:00" needed in your DataGrid or can it be the hours worked like "3,1" if so then it is no problem.

Hi, since the items in your listbox are in alphabetical order already, all you need to do is shift the positions of them. This can be done with a loop that checks for the word in textbox. The code attached does that and than puts it and the items after …

Is the picture in your PictureBox also in the background image of your Form ? If so, your PictureBox should be exactly on top of it.

Hi all, I build a scrolling text that starts running when I start up my Computer. I can stop it by clicking on it, no problem. Is it also possible to stop it when I start up another programm ?

Hi, this is a way to do it Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick If DataGridView1.CurrentCell.Selected = True Then DataGridView2.Visible = True End If End Sub

Hello I am new here as well as with vb2008xpress and I have a question. I have a datagridview with 12 columns and 30 rows I want to use as a scoreboard for a game (no need to input or save data). Columns are for the players and rows for …

This works for me. For i = 0 To DataGridView1.CurrentRow.Index sum1 = sum1 + DataGridView1.Rows(i).Cells("Column1").Value Next i

Hi, I use this to show a label when the word "Out" is found. For i = 0 To DataGridView1.CurrentRow.Index cv = CStr(DataGridView1.Rows(i).Cells("Column1").Value) If cv = "Out" Then Label1.Visable = True End If Next i

Hi, had the same problem, solved it with this piece of code. All it realy does is countdown seconds. The rest of it is just to keep the format 00:00:00 in the label where the countdown Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Dim sec, min, hrs …

Hi, maybe it has to do with the Windowsversion that is being used. I just got a new computer which runs under Windows7, my old one runs under Windows Vista. The applications I build in Vista show up wrong on the Windows7 screen. I found that it is caused by …

If you start Notepad as administrator and open the host-file you can edit and save it. No application needed.

This will do the trick. Private Sub PictureBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick, PictureBox2.MouseClick, PictureBox3.MouseClick, PictureBox4.MouseClick Dim strName As String = "" Dim text As PictureBox = sender strName = text.Name If strName = "PictureBox1" Then TextBox1.Text = "10" 'value you want End If If strName …

Do you mean you want a label that says Human and start the countdowntimer by clicking on that label ?

This will show you the number of the number of the Button you clicked. Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick, Button2.MouseClick, Button3.MouseClick, Button4.MouseClick, Button5.MouseClick Dim strName As String = "" Dim text As Button = sender strName = text.Name Label1.Text = Microsoft.VisualBasic.Right(strName, 1) End …

You probably need administrator permission to write to your e: drive. you can fix that like this, in solution explorer rightclick on My Project, then click on open. In the window that opens click on View Windows Settings and follow the instructions that are shown there. Hope this helps

Is AutoSize set to False for all Labels or any changes in FontSize ?

I have a listbox that contains numbers that vary from 0 to 99. My problem is when the number in the listbox is 0, listbox1.selectedindex will not return a value. So I cannot use removeat(x) which works for all other numbers. Can anyone give me an idea on how to …

Dim str As String = My.Computer.FileSystem.ReadAllText("E:\PS.txt") Dim PSArray As String = "" Dim lines() As String = Split(str, vbCrLf) For Each line In lines PSArray = PSArray + line Next

I use this to check if a name in my file exists. Dim names As String = ("C:\") 'location of your file Dim lijst As New System.IO.StreamReader(names) Dim namelist As String = lijst.ReadToEnd() lijst.Close() Dim lines() As String = Split(namelist, vbCrLf) Dim line As String For Each line In lines …

Try this, you can send Enter as Tab and Enter + shift as Tab + Shift with it. If (e.Shift = True AndAlso e.KeyCode.Equals(Keys.Enter)) Then SendKeys.Send("{TAB}") Else If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}") End If End If

Maybe this helps you In Solution Explorer right click on My Project to open it. Then click on View Windows Settings is where you can adjust userlevel.

Use a Timer with interval set to 1000 and try this Public Class Form1 Dim starttime As DateTime Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeString End Sub End Class