VB.Net decreased speed - Visual Basic Discussion Boards

Christian Graus5-Dec-02 7:19

5-Dec-02 7:19

Nick Parker wrote:
however there are many things as I am learning that can be done in C++ that just can't be done in VB.

Absolutely. I have to write my own linked list because VB does not provide one. How is that remotely a programming language ? But as I said, if I had started it, I would have done it in C++. We still haven't figured out how to debug our dll. And the syntax is just crap. There are so many examples of design with no thought for the consequences, it's really quite frustrating.

Christian

No offense, but I don't really want to encourage the creation of another VB developer. - Larry Antram 22 Oct 2002

C# will attract all comers, where VB is for IT Journalists and managers - Michael P Butler 05-12-2002

Again, you can screw up a C/C++ program just as easily as a VB program. OK, maybe not as easily, but it's certainly doable. - Jamie Nordmeyer - 15-Nov-2002

Re: Index number starting point HELL!

Richard Deeming5-Dec-02 1:03

Richard Deeming

5-Dec-02 1:03

That only applies to the Collection class in the Microsoft.VisualBasic namespace, and is there for backwards compatability with VB6. If you use one of the classes from the System.Collections or System.Collections.Specialized namespaces, the indexing starts at 0.

"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer

data caching

brieg10004-Dec-02 10:02

brieg1000

4-Dec-02 10:02

Does anyone out there know if there is a limit on the ASP.NET cache object ?? I have'nt been able to find anything. Any info would be greatly appreciated.

Thanks

Bill Riegert
infoGenius.com
brieg1000@msn.com

Re: data caching

Nick Seng4-Dec-02 15:05

Nick Seng

4-Dec-02 15:05

Sorry, can't help you there. I just started learning asp.net myself.

Anyway, wouldn't you get better answers at the ASP.Net board?

Notorious SMC

The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning
Mark Twain

Get your facts first, and then you can distort them as much as you please
Mark Twain

Re: data caching

brieg10005-Dec-02 2:41

brieg1000

5-Dec-02 2:41

I am writing a VISUAL BASIC(VB.NET) application that will utilize the ASP.NET cache.

See your second quote !!

ODBC with Access 2000

-- NA --3-Dec-02 8:14

-- NA --

3-Dec-02 8:14

Hi there - I'm busy with a project that uses an Access 2000 database with VB6. It uses a DSN to connect, and I have the following problem: on one of the test machines, and I'm sure on the many machines it has to be compatible on, the ODBC drivers for Access 2k aren't available, only Access97 drivers. This is a problem because of the way the DB works (it doesn't in 97 format Smile | :)

), so does anyone know where (on ms.com maybe) i can find an updater for a system's ODBC drivers? I haven't found anything that makes sense. Or maybe one of you has another solution?

Thanks
Paul W

-- A wise fox has many exits from its burrow.

modified 18-Jul-18 11:59am.

Re: ODBC with Access 2000

Daniel Turini3-Dec-02 8:27

Daniel Turini

3-Dec-02 8:27

You need to download the latest version of MDAC[^].

Paul van der Walt wrote:
Or maybe one of you has another solution?
Use a decent DBMS like SQL Server, or, if you can't afford it, use MSDE.

I see dumb people

VB.Net decreased speed

Supermaniac3-Dec-02 2:45

Supermaniac

3-Dec-02 2:45

Hi there,

i have a project with many forms and with many dataadapter, SqlCommand´s, and SqlConnection´s generated from the assistend.
Now is if i insert more and more the speed between changing the form´s
increased and all will work slower and slower.
Every Dataadapter, SQLConnection, etc. try to connect. Can stop the automaticaly connecting in the DOTNET GUI.
I know the connection programming in code is faster but is their a solution.

THX

supi

Re: VB.Net decreased speed

mikasa10-Dec-02 4:49

mikasa

10-Dec-02 4:49

Sure, you need to redesign everything! First, you should start by creating simple DataAccess components. I like to do this in a standalone DLL which I can use for all my Projects.

Within the DLL, I have a public Class call "DataSource". I encapsulate ALL Connection information here and make it super simple to use. For example, "DataSource.Connect", "DataSource.DisConnect" and all error handling is done within the Class.

Now, within my "Central" project, I create 1 Public Variable (or Shared Variable in VB.NET) and place it either inside a Globals Module (in VB6) or within the MDIForm (in VB.NET as a Shared Variable). Doing this allows all my Forms to use 1 Connection link into the Database.

I will Post next the DataSource Class which I use. It is very simple to use, here's an Example:

'Initialize the Application
MainMDI.DataSource = New ActiveDataObjects.DataSource()
With MainMDI.DataSource
.DatabaseType = ActiveDataObjects.DataSource.DatabaseTypes.dbSQLServer
.Server = "(Local)"
.Database = "MyDatabase"
.UserID = "UserID"
.Password = "password"
End With

The DataSource automatically knows when to initialize a Connection if one doesn't already exist, and it knows how to Connect / DisConnect using the Proper IDBConnection Object optimized for the "DatabaseType" specified. I have Connection strings implemented for almost all DBTypes, but more can be simply Implemented by editing the DatabaseType enum and modifiying the Code (look for ConnectionStrings on www.connectionstrings.com).

Re: VB.Net decreased speed

mikasa10-Dec-02 4:50

mikasa

10-Dec-02 4:50

Here's the DataSource Class:

Option Strict On
Option Explicit On
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
'Imports
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.Data.Odbc
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>

'Class to encapsulate Data Access
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
Public NotInheritable Class DataSource
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
#Region "Declarations"

'Implementations
Implements IDisposable

'Enumerations
Public Enum DatabaseTypes
dbAccess
dbExcel
dbODBC
dbFileDSN
dbSQLRemote
dbSQLServer
dbSybase5
dbSybase6
dbSybase7
End Enum
Public Enum SQLProtocols
sqlNamedPipes
sqlTCPIP
sqlSPXIPX
sqlBanyanVines
sqlRPC
End Enum 'When connecting through the SQLOLEDB provider use the syntax Network Library=dbmssocn and when connecting through MSDASQL provider use the syntax Network=dbmssocn
Public Enum SecuirtyProtocols
StandardSecurity = 0
TrustedSecurity = 1
End Enum

'Property Variables
Private _Server, _RemoteServer, _Database, _DSN, _Address, _ConnectString As String
Private _User, _Password As String
Private _TimeOut, _Port As Integer
Private _UseIntegrated, _UsePrompt As Boolean
Private _Type As ActiveDataObjects.DataSource.DatabaseTypes
Private _Protocol As ActiveDataObjects.DataSource.SQLProtocols
Private _Security As ActiveDataObjects.DataSource.SecuirtyProtocols

'Variables
Private odbcCon As Microsoft.Data.Odbc.OdbcConnection
Private odbcAdapter As Microsoft.Data.Odbc.OdbcDataAdapter
Private oleCon As System.Data.OleDb.OleDbConnection
Private oleAdapter As OleDb.OleDbDataAdapter
Private sqlCon As System.Data.SqlClient.SqlConnection
Private sqlAdapter As SqlClient.SqlDataAdapter
Private bConnected, bDisposed As Boolean

#End Region
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>

'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
#Region "Properties"

'Property to Return the Connection Object
Public ReadOnly Property Connection() As System.Data.IDbConnection
Get
If (IsNothing(_ConnectString)) OrElse (_ConnectString.Length = 0) Then Exit Property
If (Not bConnected) Then Call Me.Connect() 'Determine if Connected

Select Case _Type
Case DatabaseTypes.dbAccess : If (Not oleCon Is Nothing) Then Connection = oleCon Else Return Nothing
Case DatabaseTypes.dbExcel : Return Nothing
Case DatabaseTypes.dbODBC : If (Not odbcCon Is Nothing) Then Connection = odbcCon Else Return Nothing
Case DatabaseTypes.dbSQLServer : If (Not sqlCon Is Nothing) Then Return sqlCon Else Return Nothing
Case DatabaseTypes.dbSybase5 : If (Not oleCon Is Nothing) Then Connection = oleCon Else Return Nothing
Case DatabaseTypes.dbSybase6 : If (Not oleCon Is Nothing) Then Connection = oleCon Else Return Nothing
Case DatabaseTypes.dbSybase7 : If (Not oleCon Is Nothing) Then Connection = oleCon Else Return Nothing
End Select
End Get
End Property

'PropertytoReturn the Connection String
Public ReadOnly Property ConnectionString() As String
Get
Return _ConnectString
End Get
End Property

'Property for the Database
Public Property Database() As String
Get
Return _Database
End Get
Set(ByVal Value As String)
If (Not IsNothing(_Database)) Then If (_Database.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property

_Database = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property for the Database Type
Public Property DatabaseType() As DatabaseTypes
Get
Return _Type
End Get
Set(ByVal Value As DatabaseTypes)
If (_Type.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property

_Type = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property to Return whether the Connection is Open
Public ReadOnly Property IsConnected() As Boolean
Get
Return bConnected
End Get
End Property

'Property for the Password
Public Property Password() As String
Get
Return _Password
End Get
Set(ByVal Value As String)
If (Not IsNothing(_Password)) Then If (_Password.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property

_Password = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property for the Server
Public Property Server() As String
Get
Return _Server
End Get
Set(ByVal Value As String)
If (Not IsNothing(_Server)) Then If (_Server.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property

_Server = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property for the SQL Server Port
Public Property ServerPort() As Integer
Get
Return _Port
End Get
Set(ByVal Value As Integer)
If (_Port.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property
_Port = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property for the Security Protocol
Public Property SecurityProtocol() As SecuirtyProtocols
Get
Return _Security
End Get
Set(ByVal Value As SecuirtyProtocols)
If (_Security.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property
_Security = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property for User Prompting
Public Property UsePrompt() As Boolean
Get
Return _UsePrompt
End Get
Set(ByVal Value As Boolean)
If (_UsePrompt.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property

_UsePrompt = Value
Call Me.RefreshConnectionString()
End Set
End Property

'Property for the User ID
Public Property UserID() As String
Get
Return _User
End Get
Set(ByVal Value As String)
If (Not IsNothing(_User)) Then If (_User.Equals(Value)) Then Exit Property
If (bConnected) Then Exit Property

_User = Value
Call Me.RefreshConnectionString()
End Set
End Property

#End Region
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>

'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
#Region "Methods"

'Function to Connect
Public Function Connect() As Boolean
Dim mServer As ActiveSystemObjects.Network.Server
Dim sMsg As String
Dim bServerExists As Boolean
Dim i As Integer

'Verify that there is enough info to Connect
If (IsNothing(_ConnectString)) OrElse (_ConnectString.Length = 0) Then Return False
If (bConnected) Then Return True 'Determine if the Connection already Open

'Determine if the Server is available
Try
If (Not IsNothing(_Server)) AndAlso (_Server.Length > 0) Then
mServer = New ActiveSystemObjects.Network.Server(_Server)
If (mServer.Exists) Then _Address = mServer.IPAddress : bServerExists = True
End If
Catch
Call Globals.ErrorMessage("DataSource.Connect")
Finally
mServer = Nothing
End Try
If (Not bServerExists) Then Return False

Try
Select Case _Type
Case DatabaseTypes.dbAccess, DatabaseTypes.dbExcel, DatabaseTypes.dbSQLRemote, DatabaseTypes.dbSybase6, DatabaseTypes.dbSybase7
Try
oleCon = New OleDb.OleDbConnection(_ConnectString)
oleCon.Open()
bConnected = (oleCon.State = ConnectionState.Open)
Catch
Call Globals.ErrorMessage("DataSource.Connect")
oleCon.Dispose() : oleCon = Nothing
bConnected = False
End Try

Case DatabaseTypes.dbODBC
Try
odbcCon = New OdbcConnection(_ConnectString)
odbcCon.Open()
bConnected = (odbcCon.State = ConnectionState.Open)
Catch
Call Globals.ErrorMessage("DataSource.Connect")
odbcCon.Dispose() : odbcCon = Nothing
bConnected = False
End Try

Case DatabaseTypes.dbSQLServer
Try
'Open the SQL Connection
sqlCon = New SqlClient.SqlConnection(_ConnectString)
sqlCon.Open()
bConnected = (sqlCon.State = ConnectionState.Open)
Catch
Call Globals.ErrorMessage("DataSource.Connect")
sqlCon.Dispose() : sqlCon = Nothing
bConnected = False
End Try

End Select

Catch Excp As SystemException
Call Globals.ErrorMessage("DataSource.Connect")
End Try

Return bConnected
End Function

'Routine to DisConnect
Public Sub DisConnect()
'Determine if there is a Connection String
If (IsNothing(_ConnectString) OrElse (_ConnectString.Length = 0)) Then Exit Sub
If (Not bConnected) Then Exit Sub 'Determine if Connected

'Destroy any SQL Connections
If (Not sqlCon Is Nothing) Then sqlCon.Close() : sqlCon.Dispose()
sqlCon = Nothing

'Destroy any OLEDB Connections
If (Not oleCon Is Nothing) Then oleCon.Close() : oleCon.Dispose() : oleCon.ReleaseObjectPool()
oleCon = Nothing

'Destroy any OLEDB Connections
If (Not odbcCon Is Nothing) Then odbcCon.Close() : odbcCon.Dispose() : odbcCon.ReleaseObjectPool()
oleCon = Nothing

bConnected = False
End Sub

'Function to Load an Adapter from a Configuration
Public Function LoadAdapter(ByVal ConfigPath As String, ByVal AdapterName As String, Optional ByVal Version As String = "1.0") As Data.Common.DataAdapter
Dim IAdapter As Data.IDbDataAdapter
Dim xDoc As New Xml.XmlDocument()
Dim xAdapter, xCommand, xParam As Xml.XmlNode

'Determine if the File Exists
If (Not IO.File.Exists(ConfigPath)) Then Return Nothing

'Open the BusinessObject Configuration
xDoc.Load(ConfigPath)
xAdapter = xDoc.SelectSingleNode("//DataAdapter[@Name = '" & AdapterName & "'][@Version = '" & Version & "']")
For Each xCommand In xAdapter.ChildNodes

'Determine the Type of Command
Select Case CType(xCommand.Attributes("StatementType").Value, Data.StatementType)
Case StatementType.Select
With IAdapter.SelectCommand
.CommandType = CType(CInt(xCommand.Attributes("CommandType").Value), Data.CommandType)
.CommandText = xCommand.Attributes("Text").Value
.CommandTimeout = CInt(xCommand.Attributes("TimeOut").Value)
End With

Case StatementType.Insert
Case StatementType.Update
Case StatementType.Delete
End Select
Next
End Function

'Routine to Refresh the Connection String
Private Sub RefreshConnectionString()
Dim sProvider As String
Dim sProperties As New Text.StringBuilder()

Select Case _Type
Case DatabaseTypes.dbAccess 'Access Databases
If (Not IsNothing(_Database)) AndAlso (_Database.Length > 0) Then
sProperties.Append("Provider=Microsoft.Jet.OLEDB.4.0")
sProperties.Append(";Data Source=" & _Database)
If (Not IsNothing(_User)) AndAlso (_User.Length > 0) Then sProperties.Append(";User ID=" & _User)
If (Not IsNothing(_Password)) AndAlso (_Password.Length > 0) Then sProperties.Append(";Password=" & _Password)
End If

Case DatabaseTypes.dbExcel 'Excel Spread Sheets
If (Not IsNothing(_Database)) AndAlso (_Database.Length > 0) Then
sProperties.Append("Provider=Microsoft.Jet.OLEDB.4.0")
sProperties.Append(";Data Source=" & _Database)
sProperties.Append(";Extended Properties=Excel 8.0")
'sProperties.Append(";HDR=Yes") 'First Row has Column Names
End If

Case DatabaseTypes.dbODBC 'ODBC Data Sources
If (Not IsNothing(_DSN)) AndAlso (_DSN.Length > 0) Then
sProperties.Append("DSN=" & _DSN)
If (Not IsNothing(_User)) AndAlso (_User.Length > 0) Then sProperties.Append(";UID=" & _User)
If (Not IsNothing(_Password)) AndAlso (_Password.Length > 0) Then sProperties.Append(";Password=" & _Password)
End If

Case DatabaseTypes.dbSQLServer 'SQL Server
If ((Not IsNothing(_Server)) AndAlso (_Server.Length > 0)) AndAlso ((Not IsNothing(_Database)) AndAlso (_Database.Length > 0)) Then
sProperties.Append("Data Source=" & _Server)
sProperties.Append(";Initial Catalog=" & _Database)

'Determine the Protocol to use
'Select Case _Protocol
' Case SQLProtocols.sqlBanyanVines : sProperties.Append(";Network Library=DBMSVINN")
' Case SQLProtocols.sqlNamedPipes : sProperties.Append(";Network Library=DBNMPNTW")
' Case SQLProtocols.sqlRPC : sProperties.Append(";Network Library=DBMSRPCN")
' Case SQLProtocols.sqlSPXIPX : sProperties.Append(";Network Library=DBMSSPXN")
' Case SQLProtocols.sqlTCPIP : sProperties.Append(";Network Library=DBMSSOCN")
'End Select
'sProperties.Append(";Connection Timeout=" & _TimeOut)

'Determine the Security to Use
If (_Security = SecuirtyProtocols.TrustedSecurity) Then
sProperties.Append("Integrated Security=SSPI")
Else
If (Not IsNothing(_User)) AndAlso (_User.Length > 0) Then sProperties.Append(";User ID=" & _User)
If (Not IsNothing(_Password)) AndAlso (_Password.Length > 0) Then sProperties.Append(";Password=" & _Password)
End If
End If

Case DatabaseTypes.dbSybase5
Case DatabaseTypes.dbSybase6
Case DatabaseTypes.dbSybase7
End Select

_ConnectString = sProperties.ToString
sProperties = Nothing
End Sub

#End Region
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>

'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
#Region "Class Methods"

'Initialize Class
Public Sub New()
_Type = DatabaseTypes.dbSQLServer
_Port = 1433
End Sub

'Initialize for Access Database
Public Sub New(ByVal Database As String, ByVal UserID As String, ByVal Password As String)
_Type = DatabaseTypes.dbAccess
_Database = Database
_User = UserID
_Password = Password
Call Me.RefreshConnectionString()
End Sub

'Initialize for SQL Server
Public Sub New(ByVal Database As String, ByVal Server As String, ByVal UserID As String, ByVal Password As String)
_Type = DatabaseTypes.dbSQLServer
_Server = Server
_Database = Database
_User = UserID
_Password = Password
_Port = 1433
Call Me.RefreshConnectionString()
End Sub

'Initialize for DSN
Public Sub New(ByVal DSN As String)
_Type = DatabaseTypes.dbODBC
_DSN = DSN
Call Me.RefreshConnectionString()
End Sub

'Routine to Dispose
Public Sub Dispose() Implements IDisposable.Dispose
If (Not bDisposed) Then
bDisposed = True
Call Me.DisConnect()
If (Not IsNothing(odbcAdapter)) Then odbcAdapter.Dispose() : odbcAdapter = Nothing 'Destroy any ODBC Adapters
If (Not IsNothing(oleAdapter)) Then oleAdapter.Dispose() : oleAdapter = Nothing 'Destroy any OLEDB Adapters
If (Not IsNothing(sqlAdapter)) Then sqlAdapter.Dispose() : sqlAdapter = Nothing 'Destroy any SQL Adapters

GC.SuppressFinalize(Me)
End If
End Sub

'Routine to Finalize
Protected Overrides Sub Finalize()
MyBase.Finalize()
Call Dispose()
End Sub

#End Region
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
End Class
'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>

Re: VB.Net decreased speed

mikasa10-Dec-02 4:57

mikasa

10-Dec-02 4:57

To make a Connection using this is simple.

Using "Option Strict":
Dim sqlCon As SQLClient.SQLConnection = Ctype(DataSource.Connection, SQLClient.SQLConnection)

Not using Option Strict:
Dim sqlCon As SQLClient.SQLConnection = DataSource.Connection

Even if you don't explicitly call "DataSource.Connect", the DataSource class knows it needs to make a Connection.

VB6: Call a java method from VB project?!?!!? Possible or not?

gicio2-Dec-02 7:49

gicio

2-Dec-02 7:49

HI!

Is it possible to call a method (from a JAVA class) from a VB project??

When YES... please give me some examples.

thx!

Re: VB6: Call a java method from VB project?!?!!? Possible or not?

Daniel Turini2-Dec-02 8:40

Daniel Turini

2-Dec-02 8:40

I would use J# to compile a .NET version or JUMP to migrate it to C#.
Then, I would call it from VB.NET or try to expose it as a COM component to a VB 6.0 project.

I see dumb people

Re: VB6: Call a java method from VB project?!?!!? Possible or not?

Nick Parker2-Dec-02 8:48

Nick Parker

2-Dec-02 8:48

gicio wrote:
Is it possible to call a method (from a JAVA class) from a VB project??

Gosh, is it not possible to port the Java code to another language? Hmm, well in any case, have you tried to add a reference to it in VB? I am not sure of the COM support that Java has built into it directly.

Nick Parker

Re: VB6: Call a java method from VB project?!?!!? Possible or not?

Daniel Turini3-Dec-02 3:48

Daniel Turini

3-Dec-02 3:48

Nick Parker wrote:
I am not sure of the COM support that Java has built into it directly.
Nil, Nada, Nothing, Nyet, Niente.
Java supports CORBA, not COM, though there are libraries (which suck) for COM in Java.

I see dumb people

Re: VB6: Call a java method from VB project?!?!!? Possible or not?

Nick Parker3-Dec-02 8:03

Nick Parker

3-Dec-02 8:03

Daniel Turini wrote:
Nil, Nada, Nothing, Nyet, Niente.

So are you saying there isn't any. Laugh | :laugh:

Nick Parker

Not everything that can be counted counts, and not everything that counts can be counted. - Albert Einstein

Game

Andy H2-Dec-02 6:38

Andy H

2-Dec-02 6:38

Can someone explain to me how I can create a program which can have 16 tiles, each with a separate picture/image, and the user can then move the tiles around to form a 4 * 4 square. Each tile can have the image rotated by 90 degrees clockwise or 180 degrees clockwise.

If the tiles could automatically stick to each other when they get close, so that each tile is set to the same hight as it's neighbour that would be great.

Sorry, if this sounds quite easy, but I have don't do much graphics work normally.

Cheers Big Grin | :-D

Re: Game

Nick Seng2-Dec-02 14:16

Nick Seng

2-Dec-02 14:16

I don't know if there's a better way, but i'd implement each tile as an object(class), with a image and rotation property, and a board object with 16 panes or groupboxes. The rest is just drag and drop.

I hope that helps

Notorious SMC

Vb is as VB does

Re: Game

David Brooks19-Dec-02 10:28

David Brooks

19-Dec-02 10:28

Don't know if you got your answer yet, but I came across an example in the book VI6 Unleashed. It isn't exactly the solution, but it demonstrates moving graphics around and locking them into place. I don't think there is an IP issue sharing this with you. I also don't know how to attach a file, so here is the source for the page in in line: (Graphics files obviously missing.) I hope it helps.

<title>Flags of Canada

Drag the flag to the
correct province or territory name.

Quebec

Manitoba

British
Columbia

Saskat-
chewan

Alberta

Ontario

Northwest
Territories

Yukon
Territory

Newfoundland

Prince
Edward
Island

Nova Scotia

New
Brunswick

Canadian Provincial Flags

David Brooks

menu enable/disable problem....??

drmzunlimited30-Nov-02 19:51

drmzunlimited

30-Nov-02 19:51

hi ,
I have two forms , from1 and form2. Form1 is having mainmenu1 and is having menuitems in it. Now when i load form1 , in the load event of form1 i do me.menuitem1.enabled = false .
this disables the menu. now i have form2.load in form1 load event.

now the problem here is that in form2 i have a button thru which i want the mainmenu of form1 should be enabled.
so i have wriiten this code behind btn _click of from2
dim frm1 as new form1
frm1.menuitem2.enabled = true

but things dont work???

can somebody plz help me??

Re: menu enable/disable problem....??

mikasa1-Dec-02 2:47

mikasa

1-Dec-02 2:47

This is very simple. You shout not Dim a NEW instance of your Form1 because it should already open. Instead call the controls on the already open Form:

Form1.MenuItem1.Enabled = True

Custom Property Editor in VB.NET

mikasa30-Nov-02 9:44

mikasa

30-Nov-02 9:44

Ok, I believe this is called a custom UITypeEditor. What I am trying to do is have a Property that can Expanded and show two Sub-properties for that one. An example of this is the "Size" Type which has an x and y properties.

I want to use this to define a Color gradient.
Example:
BackColor
StartColor
EndColor

ForeColor
StartColor
EndColor

Can anyone point me in the right direction?

Re: Custom Property Editor in VB.NET

FruitBatInShades2-Dec-02 12:09

FruitBatInShades

2-Dec-02 12:09

Try http://www.codeproject.com/useritems/Using_PropertyGrid.asp

DispatchWrapper gives error

Uday Bhaskar29-Nov-02 18:34

Uday Bhaskar

29-Nov-02 18:34

I have a vc++6.0 dll(ATL COM), a method in the dll takes a Variant(of type VT_DISPATCH) parameter as input. I am using this dll in vb.Net by imptlb process. The problem is that I am unable to pass the VT_DISPATCH type to my method. I am trying to use DispatchWrapper class as per MSDN but it gives unsupported interface error. Can any one help me out, its a bit urgent. I face the same problem in c# too. A solution in c# or vb.Net will do for me Smile | :)

).

IDL Method Signature
====================
Compress([in,out] VARIANT* DocumentObject, [out,retval] short* retVal);

DocumentObject is of type VT_DISPATCH.

vb.Net code snippet
====================

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        Dim Comp As New XMLCOMPRESSIONLib.JNIXMLCompressionClass()<br />
        Dim XmlDoct As New Xml.XmlDocument()<br />
        Dim XYZ As Short<br />
<br />
        XmlDoct.Load("C:\DEXML\asdfa.xml")<br />
        XYZ = Comp.Compress(DispatchWrapper(XmlDoct))          <br />
        MessageBox.Show(XmlDoct.InnerXml)<br />
End Sub

I get error "Interface not supported" when I call compress with dispatch wrapper tyepcast.

Selecting all the Items in Checked List Box

Sameers (theAngrycodeR )28-Nov-02 11:56

Sameers (theAngrycodeR )

28-Nov-02 11:56

Dear, Is there someone of you knows that how can I programmatically select all the items in a Checked List Box? I tried to do it but I couldn't find any property/method which can let me to iterate through the items of ListBox / Checked Listbox so that I may be able to select them.

Thanks for your help.

Sameers

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