|
|
You handle your paint event and draw whatever you like in there.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hey you,
It on VB.net Windowsform:
. Declare a Graphics object
. Assign the Graphics property of the procedure's PaintEventArgs argument to the new Graphics object:
Dim gr as Graphics = e.Graphics
Can you tell me how to do it on VB.net webform??  I don't know how do i do? Please help me if you can!
Thanks very much!
who i am? i am....
|
|
|
|
|
Oh, I didn't see the webform part, I just assumed you were in the right forum.
You can't, there's no such thing as a paint event from the point of view of the HTML and javascript you generate for a web page. The best you can do is create a bitmap on the server side, and send it down to an img tag.
Google maps do it by creating multiple smaller bitmaps and placing them on top of a larger one. You can do the same, by creating img tags with the items you want to superimpose, and then using CSS to float them above an image.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Ok. Thanks for your advice and by the way my image is a dynamic one.
But what do you mean by speaking about Google map? Do you mean in Google earth? I doubt that Google earth uses Windows form under their own software. And my question is how to tick a point on a map display on Web Form using web browser.
who i am? i am....
|
|
|
|
|
Would Google maps API work for you?
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
The customer wants to sell a vb.net app by the 'seat' The application uses SQL. Here's my thoughts:
There will be an encrypted key. One of the fields will be # seats.
There will be a user logon table, one row for each seat.
When the app starts it will stuff it's workstation id in the table, and the TOD. Then every 5 minutes, the app will update the TOD field.
When the app quits, the table entry is cleared.
If we can't find a blank row, we look at the TOD fields, if none are more than 5 minutes old, then all seats are taken.
|
|
|
|
|
Things to consider:
- this system would limit the amount of opened clients to the amount of PCs using the app. "Per seat" normally means per user. What if the user would like to open two clients for example to compare a live db with a test copy? Consider including a field for session amount in the table, so a user can open more than one session of the app. (a technique employed by SAP) This allows you to control that users don't simply use the same login for everybody, but will allow a user to open multiple (with a maximum number?) clients on the same machine.
- Using the workstation ID, or any other form of registration by PC (IP address, MAC, etc), will cause a lot of frustration among users, because it is very sensitive to problems with firewalls, anti virus programs, network problems, problems with an exchange server in the network, etc, etc. (trust me, this is from personal experience). Using only login IDs and some form of user management will save your customers and therefor you, a lot of grief in the short and long run. No need to predetermine the rows in the table, instead you simply limit the number of users. A user management module will also allow for easier adaptation when a customer wants to purchase additional seats in the future.
- the app will quit in unwanted ways (Murphy's Law), due to unexpected errors, power outs, etc. and entries may not get cleared from the table. Consider a way to regularly check whether sessions are still alive.
- Using this TOD (Time Of... Death, Departure, Didgeridoo?) the way you describe (ofcourse I may misunderstand you), seems superfluous to me, and I see it creating even more frustration. When a user logs in and the app closes in an unexpected way, the user would have to wait for five minutes before he can restart the app.
Hope this is of help to you,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Thanks for the response.
I am thinking along simple lines that the number of rows in the table limits the number of concurrent users.
I was planning on using the computer name (that you can easily get in .net) + user_name as the key, for a row in the license table, thus, a user could have as many instances open, but just use one license.
The one issue I have is when an app aborts without clearing it's license record. This is why I was thinking of having the app update it's license record every so many minutes, with the TOD. My logon logic could determine which records were 'stale' and zero them out.
What do you think?
|
|
|
|
|
Hello
I try to connect to Access Database, When i connec it give me this Error:
"Could not find installable ISAM"
Can someone help me???
This my connection also:
con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\Documents and Settings\Assaf\Desktop\ProjectToBeSubmited\School.mdb"
Thanks in advance
Assaf
|
|
|
|
|
hi assaf,
every thing is correct except one
con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\Documents and Settings\Assaf\Desktop\ProjectToBeSubmited\School.mdb"
in above connection string place Space between Data & Source like follwing
con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\Assaf\Desktop\ProjectToBeSubmited\School.mdb"
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
Thank very much Rupesh
Assaf
|
|
|
|
|
Hi,
I'm using a variation of the following code from MSDN. I have conditions that are being met, and can display a message box to prove to myself that its reaching that point, but I'm not getting an ErrorProvider exclamation mark now that I've formatted the columns in my DataGridView to be numeric.
The MSDN Code (from http://msdn2.microsoft.com/en-us/library/0ye0dkkw.aspx) is:
MSDN Snippet:
Private Sub Customers_ColumnChanging(ByVal sender As Object, _<br />
ByVal e As System.Data.DataColumnChangeEventArgs)<br />
' Only check for errors in the Product column<br />
If (e.Column.ColumnName.Equals("Product")) Then<br />
' Do not allow "Automobile" as a product.<br />
If CType(e.ProposedValue, String) = "Automobile" Then<br />
Dim badValue As Object = e.ProposedValue<br />
e.ProposedValue = "Bad Data"<br />
e.Row.RowError = "The Product column contians an error"<br />
e.Row.SetColumnError(e.Column, "Product cannot be " & _<br />
CType(badValue, String))<br />
End If<br />
End If<br />
End Sub
Why would formatting my columns break the ability to display the icon?
|
|
|
|
|
I wont to make an application that can change driveletters(c:// to E://) but i cant find any article that describes how to do this do this. i hope you now how to do.
|
|
|
|
|
You would have to P/Invoke the Win32 API functions SetVolumeMountPoint and DeleteVolumeMountPoint to do this. Beware! You can not change the drive letter of the volume Windows is installed on. Also, it's not a good idea to change the drive letter of anything other than a removable volume. Changing the drive letter of a hard disk after application have been installed on it will result in those application breaking!
Documentation on Volume Mount Point functions[^].
|
|
|
|
|
|
That code changes the Volume Label, not the drive letters.
|
|
|
|
|
Hello all, I am working with VB.Net and I currently have a Setup Project that I do a Build on and install my program to different PCs. This works fine, but my question now is how can I create an 'update' to send my users instead of a full install. I also want to make sure that I don't send them the original MDB file again and overwrite the one they currently have on their machine.
Does anyone have any suggestions or know of any links explaining how to do this? I tried the Publish but it tried to install the original MDB, which would be a very bad thing.
Thanks for any advice you can offer!
|
|
|
|
|
|
It looks like with ClickOnce, you have to install with a ClickOnce project, and I don't have that. I added a Setup Project to my program and I am installing using the output of Build of that Setup. So I don't think that ClickOnce is a option for me. Does anyone know of anything else I can use?
|
|
|
|
|
What I have right now is the flag set to RemovePreviousVersion, and I set my MDB's Permanent property to true. And anytime I do an updated build, I have to change the Version. Then when they install, it will see the other version, un-install it, but leave the MDB alone, and then reinstall.
Does anyone else know of a better solution for updates using the Setup Project feature?
|
|
|
|
|
i have created database in sqlserver through vb it was created successfully but when i go in enterprise manager for making query the table which were created are showing no columns i.e only All columns selection check box is there what is wrong with database?
When i execute select query the result pane showing all columns but no columns in the table structure above
MKS
|
|
|
|
|
We'd need to see the code that created the table.
|
|
|
|
|
Sorry for replying late
Following is the code for creating database please reply.
This is how i create the data base and table.
Public Function Create_UserDB(strDBFolder As String, strDBName As String, isDoubleAccounting As Boolean, isGLInclude As Boolean) As Boolean
Dim strQuery As String
Create_UserDB = False
strQuery = "CREATE DATABASE [" & strDBName & "] "
strQuery = strQuery & " ON (NAME = N'RWSDB_Data', FILENAME = N'" & strDBFolder & "\" & strDBName & ".mdf' "
strQuery = strQuery & " , SIZE = 3, FILEGROWTH = 10%) LOG "
strQuery = strQuery & " ON (NAME = N'RWSDB_Log', FILENAME = N'" & strDBFolder & "\" & strDBName & ".ldf' "
strQuery = strQuery & " , SIZE = 1, FILEGROWTH = 10%)"
ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'autoclose', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'bulkcopy', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'trunc. log', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'torn page detection', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'read only', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'dbo use', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'single', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'autoshrink', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'ANSI null default', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'recursive triggers', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'ANSI nulls', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'concat null yields null', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'cursor close on commit', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'default to local cursor', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'quoted identifier', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'ANSI warnings', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'auto create statistics', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'auto update statistics', N'true'": ExecuteQuery strQuery
strQuery = "CREATE TABLE [" & strDBName & "].[dbo].[Calendar] ("
strQuery = strQuery & " [Code] [nvarchar] (2) NOT NULL ,"
strQuery = strQuery & " [Original] [nvarchar] (4) NOT NULL ,"
strQuery = strQuery & " [Type] [nvarchar] (1) NOT NULL"
strQuery = strQuery & " ) ON [PRIMARY]"
ExecuteQuery strQuery
strQuery = "CREATE TABLE [" & strDBName & "].[dbo].[CompanyPersonalInformation] ("
strQuery = strQuery & " [Code] [nvarchar] (5) NOT NULL ,"
strQuery = strQuery & " [Ucode] [nvarchar] (5) NOT NULL ,"
strQuery = strQuery & " [GKey] [nvarchar] (100) NOT NULL ,"
strQuery = strQuery & " [CompanyName] [nvarchar] (100) NOT NULL ,"
strQuery = strQuery & " [Address] [nvarchar] (200) NOT NULL ,"
strQuery = strQuery & " [City] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [Country] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [Province] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [ZipCode] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [PhNo] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [FaxNo] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [EMail] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [WebAddrs] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [NTax] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [STax] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [FromDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [ToDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [CompanyName4Printing] [nvarchar] (100) NOT NULL ,"
strQuery = strQuery & " [STaxRate] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [IncomeTaxRate] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [MonthClosing] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [InstallationDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [ExpiryDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [Logo] [image] NOT NULL ,"
strQuery = strQuery & " [PictureSize] [numeric](18, 0) NOT NULL ,"
strQuery = strQuery & " [CreatedBy] [int] NOT NULL ,"
strQuery = strQuery & " [CreatedOn] [smalldatetime] NOT NULL ,"
strQuery = strQuery & " [UpdatedBy] [int] NOT NULL ,"
strQuery = strQuery & " [UpdatedOn] [smalldatetime]"
strQuery = strQuery & " ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
ExecuteQuery strQuery
Public Sub ExecuteQuery(Squery As String, Optional Action As String)
On Error GoTo errhandle
G_cn_ConnectionToMainDB.Execute Squery 'Connection to Master Database
Exit Sub
errhandle:
DisplayErrMsg (Err.Description)
' With frmStop
' .InitForm "Error Message", Err.Description, True
' .Show vbModal
' End With
End Sub
Kashif Sabir
|
|
|
|
|
Show the code like Dave recommended.
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
