how do i access a property in a class on a form - Visual Basic Discussion Boards

Re: I need VB.NET chat project

Horanis16-Dec-07 12:36

Horanis

16-Dec-07 12:36

I searched and looked around, but I got nothing what I need.
Can you help me more please?

Re: I need VB.NET chat project

CKnig16-Dec-07 18:15

CKnig

16-Dec-07 18:15

look here[^]">
for example

Re: I need VB.NET chat project

Horanis17-Dec-07 7:56

Horanis

17-Dec-07 7:56

The sample you gave me is a VC.NET project.
I don't have VC.NET, but only VB.NET, so I couldn't open it.
What should I do?
Thanks

how to manipulate a simple program from my VB

Ronny Ron11-Dec-07 6:36

Ronny Ron

11-Dec-07 6:36

I want to manipulate a simple program from my VB - I need to insert s short text in a field and activate a button in the program. Is anyone know how to do that? Thanks, Ronny

Re: how to manipulate a simple program from my VB

Christian Graus11-Dec-07 14:17

Christian Graus

11-Dec-07 14:17

Depends on what the other program is. No matter what, you'd be better off in C++, but with p/invoke you may be able to do it

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 )

Automating MS Outlook with VB.NET to do a find and replace on message body text

craigmg7811-Dec-07 4:30

craigmg78

11-Dec-07 4:30

I have been able to do some successful outlook automation using VB.Net and create a new mail message with the address, subject, and body filled out as below:

Dim app As Outlook.Application = New Outlook.Application
Dim appNameSpace As Outlook._NameSpace
Dim memo As Outlook.MailItem

appNameSpace = app.GetNamespace("MAPI")
appNameSpace.Logon(Nothing, Nothing, False, False)

memo = app.CreateItem(Outlook.OlItemType.olMailItem)
memo.To = "sample@gmail.com"
memo.Subject = "Reminder"
memo.Body = sampletext
memo.Display()

What I would like to next is highlight all the body text and do a find and replace on some words in the text. I haven't been able to make enough sense of the macro recorder on outlook to successfully do this, though. It looks like the way to do this in VBA is:

Selection.WholeStory
memo.Selection.Find.Text = "original_text"
memo.Selection.Find.Replacement.Text = "replacement_text"
memo.Selection.Find.Execute(Replace:=wdReplaceAll)

However, I am having a hard time doing this in VB.Net. I feel like I'm must be missing something really easy. I have done this before using MS Word automation with no troubles. Can anyone steer me in the right direction? Thanks!

Craig

"That rug really tied the room together."

modified on Tuesday, December 11, 2007 12:09:48 PM

Re: Automating MS Outlook with VB.NET to do a find and replace on message body text

craigmg7811-Dec-07 11:35

craigmg78

11-Dec-07 11:35

I found a way to edit message body text when MS Word is the Outlook email editor. This worked for me:

http://www.outlookcode.com/codedetail.aspx?id=433[^]

- Craig

"That rug really tied the room together."

how do i access a property in a class on a form

imonfiredammit11-Dec-07 4:10

imonfiredammit

11-Dec-07 4:10

Here is my problem...I have the following class:

Public Class Login 'in Database_Class library
Public m_User As String
Public m_Password As String
Public Sub New()

End Sub
Public Property UserName() As String
Get
Return m_User
End Get
Set(ByVal value As String)
m_User = value
End Set
End Property

Public Property Password() As String
Get
Return m_Password
End Get
Set(ByVal value As String)
m_Password = value
End Set
End Property

End Class

This class is going to hold login information...I have a form that a user will enter in the user name and password.

My question is this. I am trying to connect to a database using a connection string (which works). I dont want to provide my username and password directly into the connection string so I decided to set up a class for my login info so i can use a login form. I want to append the user name and password into the connection string and it doesnt work. I have the following in my connection class...

Imports Database_Class 'The class library that contains the Login Class
Imports System.Data.oracleClient
Public Class Connection
Public Shared Function GetConnection() As OracleConnection
Dim connectionString As String = "Data Source = PIDBDEV; User ID= " & UserName & ";Password = " & Password & " ;Unicode = True;"
Return New OracleConnection(connectionString) Return New OracleConnection(connectionString)

End Function

so what am I doing wrong? How do you access the values contained in a property contained in a class library in another class??

Erica

Re: how do i access a property in a class on a form

Dave Kreskowiak11-Dec-07 4:19

Dave Kreskowiak

11-Dec-07 4:19

You pass the instance of your Login class to this method so it can use the information inside it to create the connection string.

Also, change the m_User and m_Password fields to Private, not Public. You're aslready exposing the fields as public Properties so you don't need to expose them twice.

Imports Database_Class
Imports System.Data.oracleClient
Public Class Connection
    Public Shared Function GetConnection(ByVal credentials As Login) As OracleConnection
        Dim connectionString As String = _
                String.Format("Data Source = PIDBDEV; User ID={0};Password = {1};Unicode = True;", _
                        credentials.UserName, credentials.Password)
    Return New OracleConnection(connectionString) Return New OracleConnection(connectionString)
End Function

A guide to posting questions on CodeProject[^]

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

Re: how do i access a property in a class on a form

imonfiredammit11-Dec-07 4:37

imonfiredammit

11-Dec-07 4:37

wow thanks dave...the only thing is now when I am creating a new instance of the connection how do I pass the credentials to the function?

This is how i was doing it when I had the userID and password hardcoded into the connection string...
Dim newConnection As OracleConnection = Connection.GetConnection

this doesnt work:

Dim newConnection As OracleConnection = Connection.GetConnection(credentials as login)

i am trying to understand how to use properties...you have been a great help with the last issue.

Erica

Re: how do i access a property in a class on a form

Dave Kreskowiak11-Dec-07 5:31

Dave Kreskowiak

11-Dec-07 5:31

OK, I would seriously suggest picking up a book on VB.NET and working through it. What your asking is a basic concept you find covered in any beginners book.

You have to create an instance of the Login class, fill in the properties, then pass it to the GetConnection method:

Dim myLoginData As New Login
myLoginData.User = "username"
myLoginData.Password = "password"
Dim conn As OracleConnection = Connection.GetConnection(myLoginData)

A guide to posting questions on CodeProject[^]

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

Treeview Icons problem

Mbire11-Dec-07 1:12

Mbire

11-Dec-07 1:12

Hi guys,

I added icons to an imagelist which i then associated with a treeview control. The original icons have a transparent background and are of relatively good quality pictures, however when i run my system, they look very grainy at the edges and have a blue border around them when they appear in the treeview at runtime. i used the original icon size (16X16) and a color depth of 32bits. Is there something else about this control and icons or maybe is it haunted?

Thanks a lot for your assistance.

Regards

.NET DLL in a VB6.0 Application

andyORS10-Dec-07 23:58

andyORS

10-Dec-07 23:58

Hi,

I have a .NET DLL written in VB 2005. I have to run this in a VB6.0 application.

I've created the .TLB file for the DLL in VB 2005, and successfully imported this reference to the vb6.0 app. All works well on my development machine. However, my problem is distribution. On Package And Deployment through vb6.0, all is transferred successfully to a new machine, but when I run the vb6.0 app, I get the Error:
"Run time error 429. ActiveX component can’t create object"

Any ideas?

Thanks,
Andy

Re: .NET DLL in a VB6.0 Application

coolestCoder11-Dec-07 0:15

coolestCoder

11-Dec-07 0:15

I think that you must check whether the class library is deployed with the application and it is registered on the other machine. May be your setup project doesn't register class library by default ?

"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder

coolestCoder

Re: .NET DLL in a VB6.0 Application [modified]

andyORS11-Dec-07 0:48

andyORS

11-Dec-07 0:48

Thanks for this.
The DLL is deployed by the setup.exe, however it's likely not registered during that process.
Could yoy advise on how to register a DLL on the new machine?
Thank you!
Andy

Actually, it's okay - I've found the Regasm tool! All's well.

modified on Tuesday, December 11, 2007 7:37:28 AM

Re: .NET DLL in a VB6.0 Application

coolestCoder11-Dec-07 3:09

coolestCoder

11-Dec-07 3:09

I can tell you the command to install some COM component (ActiveX), but I have no experience on how to call external exe from Setup Deployment Project. The command used to register any COM component is -

regsvr32 /i <complete path="" of="" com="" dll="">

Hope this helps.

"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder

coolestCoder

Re: .NET DLL in a VB6.0 Application

Dave Kreskowiak11-Dec-07 4:13

Dave Kreskowiak

11-Dec-07 4:13

RegSvr32 works for COM-based .DLL's only, NOT on .NET .DLL's.

RegAsm works for .NET DLL's, registering them so they can be consumed by COM clients. In the old VB6 Setup and Deployment project, you'd have to customize the project to run the RegAsm as an external app.

A guide to posting questions on CodeProject[^]

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

Finding monthend date

Mark0610-Dec-07 23:45

Mark06

10-Dec-07 23:45

Hi,
anyone know of a function already in .Net to return the monthend date of a specified date?

If I have a date, 30 April 2007, and call:
myDate.AddMonth(1)
It will return 30 May 2007, but thats not the monthend.

Anyone know?

Re: Finding monthend date

Christian Graus10-Dec-07 23:54

Christian Graus

10-Dec-07 23:54

DateTime.DaysInMonth

try to using datagridview without dataset

eyes200710-Dec-07 23:42

eyes2007

10-Dec-07 23:42

hi all

i m trying to use datagridview to display some data from database and i am trying this with out using dataset.

what exactly i m trying is find some alternative from which i can fill datagridview directly with dataadapter or some thing like that.

the moral is, i need to done my work (the loading) in just less than a second.

does some have any idea

thanks in advance.

help everyone

Falling down is not defeat...defeat is when u refuse to get up...

Re: try to using datagridview without dataset

John_Adams11-Dec-07 2:07

John_Adams

11-Dec-07 2:07

Hi,

The following code demonstrates one of the ways to fill up DataGridView without using DataSet.

BEGIN CODE

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
Inherits System.Windows.Forms.Form

Private buttonPanel As New Panel
Private WithEvents songsDataGridView As New DataGridView
Private WithEvents addNewRowButton As New Button
Private WithEvents deleteRowButton As New Button

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

SetupLayout()
SetupDataGridView()
PopulateDataGridView()

End Sub

Private Sub songsDataGridView_CellFormatting(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
Handles songsDataGridView.CellFormatting

If Me.songsDataGridView.Columns(e.ColumnIndex).Name = _
"Release Date" Then

If e IsNot Nothing Then
If e.Value IsNot Nothing Then
Try
e.Value = DateTime.Parse(e.Value.ToString()) _
.ToLongDateString()
e.FormattingApplied = True
Catch ex As FormatException
Console.WriteLine("{0} is not a valid date.", e.Value.ToString())
End Try
End If
End If

End If

End Sub

Private Sub addNewRowButton_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles addNewRowButton.Click

Me.songsDataGridView.Rows.Add()

End Sub

Private Sub deleteRowButton_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles deleteRowButton.Click

If Me.songsDataGridView.SelectedRows.Count > 0 AndAlso _
Not Me.songsDataGridView.SelectedRows(0).Index = _
Me.songsDataGridView.Rows.Count - 1 Then

Me.songsDataGridView.Rows.RemoveAt( _
Me.songsDataGridView.SelectedRows(0).Index)

End If

End Sub

Private Sub SetupLayout()

Me.Size = New Size(600, 500)

With addNewRowButton
.Text = "Add Row"
.Location = New Point(10, 10)
End With

With deleteRowButton
.Text = "Delete Row"
.Location = New Point(100, 10)
End With

With buttonPanel
.Controls.Add(addNewRowButton)
.Controls.Add(deleteRowButton)
.Height = 50
.Dock = DockStyle.Bottom
End With

Me.Controls.Add(Me.buttonPanel)

End Sub

Private Sub SetupDataGridView()

Me.Controls.Add(songsDataGridView)

songsDataGridView.ColumnCount = 5
With songsDataGridView.ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(songsDataGridView.Font, FontStyle.Bold)
End With

With songsDataGridView
.Name = "songsDataGridView"
.Location = New Point(8, 8)
.Size = New Size(500, 250)
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Black
.RowHeadersVisible = False

.Columns(0).Name = "Release Date"
.Columns(1).Name = "Track"
.Columns(2).Name = "Title"
.Columns(3).Name = "Artist"
.Columns(4).Name = "Album"
.Columns(4).DefaultCellStyle.Font = _
New Font(Me.songsDataGridView.DefaultCellStyle.Font, FontStyle.Italic)

.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Dock = DockStyle.Fill
End With

End Sub

Private Sub PopulateDataGridView()

Dim row0 As String() = {"11/22/1968", "29", "Revolution 9", _
"Beatles", "The Beatles [White Album]"}
Dim row1 As String() = {"1960", "6", "Fools Rush In", _
"Frank Sinatra", "Nice 'N' Easy"}
Dim row2 As String() = {"11/11/1971", "1", "One of These Days", _
"Pink Floyd", "Meddle"}
Dim row3 As String() = {"1988", "7", "Where Is My Mind?", _
"Pixies", "Surfer Rosa"}
Dim row4 As String() = {"5/1981", "9", "Can't Find My Mind", _
"Cramps", "Psychedelic Jungle"}
Dim row5 As String() = {"6/10/2003", "13", _
"Scatterbrain. (As Dead As Leaves.)", _
"Radiohead", "Hail to the Thief"}
Dim row6 As String() = {"6/30/1992", "3", "Dress", "P J Harvey", "Dry"}

With Me.songsDataGridView.Rows
.Add(row0)
.Add(row1)
.Add(row2)
.Add(row3)
.Add(row4)
.Add(row5)
.Add(row6)
End With

With Me.songsDataGridView
.Columns(0).DisplayIndex = 3
.Columns(1).DisplayIndex = 4
.Columns(2).DisplayIndex = 0
.Columns(3).DisplayIndex = 1
.Columns(4).DisplayIndex = 2
End With

End Sub

<STAThreadAttribute()> _
Public Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1())
End Sub

End Class

END CODE

Regards,
John Adams
ComponentOne LLC

Re: try to using datagridview without dataset

Dave Kreskowiak11-Dec-07 3:07

Dave Kreskowiak

11-Dec-07 3:07

eyes2007 wrote:
i need to done my work (the loading) in just less than a second.

That depends on how much data you're talking about, where the data is stored, what kind of database it is, ..., not to mention that the DGV itself isn't known for it's speed in creating rows.

A guide to posting questions on CodeProject[^]

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

exporting data

stavros10-Dec-07 23:13

stavros

10-Dec-07 23:13

I have started to programming in Visual Studio.NET 2003 and specifically in Visual Basic of this Studio.
I have a problem with the data I want to export from a picture box.
I set a background image in a picture box and after writing some code I manage to overlay another image in the background image(in the same picture box).
Finally, I manage to show in the picture box the two different images (one above the other) and I want to save (export) the final image as a new “.bitmap” image.
Can anyone help me?

Thanks in advance

Re: exporting data

CKnig10-Dec-07 23:23

CKnig

10-Dec-07 23:23

The background is a Image - object, and in this class you've got the Save method (just use <code[yourimage].image.save("c:\test.bmp")> to save it as a Bitmap)

Re: exporting data

stavros13-Dec-07 7:02

stavros

13-Dec-07 7:02

Thank you very much. I will try it!

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.