Visual Basic

Rich Text Box, cursor follow input

10-Mar-08 10:19

It's not really lame that you did something silly and VS isn't magically restoring your file.

The way to change the icon on a button, is to change the property in the designer. If you can get your resx file back to do that from.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Jeffness9-Mar-08 20:51

Jeffness

9-Mar-08 20:51

Hi all,

I've got some code that enters data into a rich text box. Basically, I need to be able to find the line and column number of the last input so that i can do some rearranging if necessary.

After digging around, all I can find is how to get the line/column of selected text or the cursor position. So I'm wondering if it would be possible to programmatically place the cursor at the end of the last input, then get the line/column position of the cursor.

If anyone has any suggestions on how to do this (or if they can suggest a better method) I would be greatly appreciative.

Thank you.

Re: Rich Text Box, cursor follow input

Dave Kreskowiak11-Mar-08 7:53

Dave Kreskowiak

11-Mar-08 7:53

The RTB doesn't support what you want to do natively. Also, a "line" in the RTB isn't what you think. A single "line" in the RTB can span multiple lines when rendered on screen, so using the methods and properties that returns line numbers in the RTB doesn't return the line where the text was rendered on screen.

There is no method/property to return the rendered column number. Also, with proportional fonts, the column number is a subjective measurement. The same column number, rendered on two different lines will not line up to be the same visual column.

You can use the Lines property of the RTB to get the last line of text, but keep in mind that this can represent multiple lines on screen.

A guide to posting questions on CodeProject[^]

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

how to put a time counter in my vb.net project?

Rharzkie9-Mar-08 20:43

Rharzkie

9-Mar-08 20:43

i am making a software "IQ TEST" for my thesis project... but my problem is i dont know how to put a timer in my module? can you pls tell me the codes for it??? thanks

Re: how to put a time counter in my vb.net project?

John_Adams9-Mar-08 21:04

John_Adams

9-Mar-08 21:04

Hi,

Please try the following code snippet which uses a Timer Control (Timer1), one label (lblLogin) and two button (btnLogin and btnBreak). Drag and drop above mention .Net control and give name accordingly (as mentioned in the parenthesis) and paste the following code snippet:
-------------------------------------------------------------------------
BEGIN CODE

Public Class Form1

Dim tmr1 As Integer
Dim timerString As String
Dim seconds, minutes, hours As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.lbldate.Text = Format(Now(), "dddd, MMM dd yyyy")
'Me.btnLogin.Enabled = False
Me.AcceptButton = btnLogin
Me.Timer1.Start()
'
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Me.lblLogin.Text = Format(Now(), "hh:mm:ss")

'tmr1 = tmr1 + 1
'timerString = tmr1
seconds += 1
If seconds = 60 Then
minutes += 1
seconds = 0
End If
If minutes = 60 Then
hours += 1
minutes = 0
End If
timerString = hours & ":"
timerString = timerString & minutes & ":"
timerString = timerString & seconds
Me.lblLogin.Text = timerString

End Sub

Private Sub btnBreak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBreak.Click

Me.Timer1.Stop()
End Sub

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

Me.Timer1.Start()
End Sub

END CODE
-------------------------------------------------------------------------

I hope this helps Smile | :)

Regards,
John Adams
ComponentOne LLC

Re: how to put a time counter in my vb.net project?

Rharzkie9-Mar-08 23:00

Rharzkie

9-Mar-08 23:00

thanks, but can this timer can stop in another form?

for example, your timer starts at form1, the timer is only set in 60 minutes. When 60 min. is over and you are in the form3 already.. it will go automatically to the last form (form10 for example). is it possible?

Re: how to put a time counter in my vb.net project?

Guffa9-Mar-08 23:05

Guffa

9-Mar-08 23:05

Yes, of course. How it's done depends however very much on how you move from one form to another.

Despite everything, the person most likely to be fooling you next is yourself.

Re: how to put a time counter in my vb.net project?

Rharzkie9-Mar-08 23:31

Rharzkie

9-Mar-08 23:31

ok! thanks! i got it already... thank you so much to all those who help! Wink | ;)

help. to include flash in vb.net form?

jomet9-Mar-08 17:29

jomet

9-Mar-08 17:29

Hi,

i added "ShockWave Flash Object" from .COM (rt clicking toolbox and by choose Items)
when i dragged it to form
it shows error,
Failed to import the ActiveX control. Please ensure it is properly registered.

How can i solve this..
is there any other method.

Thanks Laugh | :laugh:

Re: help. to include flash in vb.net form?

C1AllenS9-Mar-08 19:02

C1AllenS

9-Mar-08 19:02

Hello,

You can have a look at this link. It will give you some idea.

http://www.devx.com/vb2themax/Tip/18742[^]

I hope this will help.

Regards,
Allen

Allen Smith

Software Engineer
ComponentOne LLC
www.componentone.com

Re: help. to include flash in vb.net form?

jomet9-Mar-08 21:55

jomet

9-Mar-08 21:55

i am going through that.
thanks for your help Laugh | :laugh:

Re: help. to include flash in vb.net form?

jomet9-Mar-08 22:02

jomet

9-Mar-08 22:02

i am using vb express 2005 edition.
vb6 is not installed in my computer.
Wink | ;)

storing images into DB

Aamir Mustafa9-Mar-08 2:30

Aamir Mustafa

9-Mar-08 2:30

i want to save image in db
i m using ms access db
images are stored in database successfully.
i have added a list box on the form and i want that when i save image in db so that image name should be added in list box
but i don't know how to do that

i m also giving code below
any body can help me.
thanks

Option Strict On
Imports System.Data.SqlClient
Imports System.IO

Public Class Form1
Inherits System.Windows.Forms.Form
Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Replace(Application.StartupPath, "bin", "") & "DB.mdb;Mode=ReadWrite;Persist Security Info=False")

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents PicBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents DataSet11 As LoadinImages.DataSet1

<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.Label1 = New System.Windows.Forms.Label
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.DataSet11 = New LoadinImages.DataSet1
Me.PicBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.TextBox1 = New System.Windows.Forms.TextBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PicBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Location = New System.Drawing.Point(121, 376)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Browse"
'
'Button2
'
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Location = New System.Drawing.Point(220, 377)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Save"
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Location = New System.Drawing.Point(24, 16)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(301, 304)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(24, 341)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(427, 32)
Me.Label1.TabIndex = 4
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.SystemColors.Control
Me.ListBox1.HorizontalScrollbar = True
Me.ListBox1.Location = New System.Drawing.Point(331, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.ScrollAlwaysVisible = True
Me.ListBox1.Size = New System.Drawing.Size(120, 303)
Me.ListBox1.TabIndex = 7
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-US")
Me.DataSet11.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'PicBindingSource
'
Me.PicBindingSource.DataMember = "Pic"
Me.PicBindingSource.DataSource = Me.DataSet11
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = resources.GetString("OleDbConnection1.ConnectionString")
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Images", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Filename", "Filename"), New System.Data.Common.DataColumnMapping("Photo", "Photo")})})
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Images(Filename, Photo) VALUES (?, ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.AddRange(New System.Data.OleDb.OleDbParameter() {New System.Data.OleDb.OleDbParameter("Filename", System.Data.OleDb.OleDbType.VarWChar, 50, "Filename"), New System.Data.OleDb.OleDbParameter("Photo", System.Data.OleDb.OleDbType.VarBinary, 0, "Photo")})
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT Filename, Photo FROM Images"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(124, 406)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(171, 20)
Me.TextBox1.TabIndex = 8
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(466, 438)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.ForeColor = System.Drawing.Color.White
Me.Name = "Form1"
Me.Text = "DataBase Images"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PicBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thumbNail As Image
With OpenFileDialog1

.Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
.FilterIndex = 2
End With

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
With PictureBox1
.Image = Image.FromFile(Me.OpenFileDialog1.FileName)
.SizeMode = PictureBoxSizeMode.CenterImage
End With
Dim theImage As New Bitmap(OpenFileDialog1.FileName)
PictureBox1.Image = theImage
thumbNail = theImage.GetThumbnailImage(PictureBox1.Height, PictureBox1.Width, Nothing, Nothing)
PictureBox1.Image = thumbNail
End If
Me.Label1.Text = Me.OpenFileDialog1.FileName.ToString
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error GoTo fix

If TextBox1.Text = "" Then
MsgBox("Please Enter Name File")
TextBox1.Focus()
Exit Sub
End If

' Open the file
Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim s As String = TextBox1.Text
'Read the output in binary reader
Dim r As BinaryReader = New BinaryReader(fs)
'Declare a byte array to save the content of the file to be saved
Dim FileByteArray(CInt(fs.Length - 1)) As Byte
r.Read(FileByteArray, 0, CInt(fs.Length))
Dim sql As String = "INSERT INTO Images (Filename,Photo) VALUES (?,?)"
Dim i As Integer

ListBox1.Items.Add(TextBox1.Text)

MessageBox.Show("Image Succesfully inserted !", "Photo Album", MessageBoxButtons.OK, MessageBoxIcon.Information)

fix:
Exit Sub
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim arrayImage() As Byte = CType(Me.DataSet11.Tables(0).Rows(Me.ListBox1.SelectedIndex)("photo"), Byte())
Dim ms As New MemoryStream(arrayImage)
With Me.PictureBox1
.Image = Image.FromStream(ms)
.SizeMode = PictureBoxSizeMode.CenterImage

End With
End Sub
End Class

Aamir Mustafa

pmarfleet9-Mar-08 4:05

pmarfleet

9-Mar-08 4:05

There's too much code here. Most of it is irrelevent to the problem at hand.

Identify which bit of code you need help with and post it only.

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

Christian Graus9-Mar-08 11:11

9-Mar-08 11:11

Seriously, your code is unreadable. Using default names like button1 and listview2, means I cannot scan this and have any idea what each method is supposed to do, without examining the code closely.

You're talking about listboxes, but the code you posted is putting the image in a picture box. Does this code work ? If so, there's no problem with your database, or any of the code you have posted.

If you just need to know how to show an image in a listbox, then you should probably look here[^].

Paul Conrad9-Mar-08 11:53

Paul Conrad

9-Mar-08 11:53

Christian Graus wrote:
Using default names like button1 and listview2

This is something I try to get my students to stay away from, and amazingly some still do it. Points get docked when it happens.

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

Please help: BlueTooth and visual studio.net

Paul Conrad9-Mar-08 11:51

Paul Conrad

9-Mar-08 11:51

Thanks for the worthless code dump Sleepy | :zzz:

Just post the code where you suspect the problem is occurring Hmmm | :|

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

Jason Wucinski8-Mar-08 22:35

Jason Wucinski

8-Mar-08 22:35

i have been looking everywhere for help with this project please someone help me:

i want to create a program that would run on a pc (which would be connected to a blue tooth dongle) and would connect to a bluetooth cell phone. the program would send a text message and multiple cell phone numbers to the cell phone, and instruct the cell phone to send out that message to all the given cellphone numbers.

i cant afford to buy any api's (im a volunteer in africa doing hiv/aids work). if someone could just explain to me how to do this in vb.net (example code?) or at least tell me the step by step processes i would need to do, id appreciate it. also, if i need any dll or anything let me know. my deadline is quickly approaching to get this program done (and i just want to know)

im using visual basic 2005 express edition.

Christian Graus8-Mar-08 22:46

8-Mar-08 22:46

I'm not sure that a standard API exists to control a cell phone like that ? I'd have thought you'd do better to use a phone that is a Windows device and write a program for it, or research ways to send a text message via a webservice so you just needed to connect to the web, and not a cell phone ?

http://www.google.com.au/search?source=ig&hl=en&rlz=&q=send+sms+vb.net&meta=[^]

Jason Wucinski8-Mar-08 22:56

Jason Wucinski

8-Mar-08 22:56

thanks for repplying. i cant send through the net. in botswana all cell phone services are prepaid. because of this, the companies do not give out there address to send the text messages. even if i could, im sure id be breaking some law. im sure theres a way. id imagine i would need the cellphones model number or something to connect to it. the usb dongle would be plug and play

Christian Graus8-Mar-08 23:54

8-Mar-08 23:54

The model number isn't going to help much, .NET doesn't have classes to talk to a mobile phone over bluetooth AFAIK. I assume you can connect to the web, or how are you able to post here ? If you can get on the web, then you can use a webservice that connects to an SMS provider.

Jason Wucinski9-Mar-08 1:51

Jason Wucinski

9-Mar-08 1:51

i have access to internet but the office im peploying the software to does not