|
You could (instead of licensing) write the date when the program was installed to a key in the registry, and if the program is started when more than 30 days have gone by, the program won't start.
----
Dim Sleepy as Boolean = True
If Me.Sleepy = True Then
Goto Sleep
End If
----
|
|
|
|
|
HOw can i connect from vb.net 2005 to Excel, Foxpro?
................
|
|
|
|
|
|
I'm using an access database with VB6. My program has been working well until now. Then I set password on mdb database, the program not connect the database. Does anybody have any suggest how I can repair it, view or extract the data. Can anybody suggest why this is happening.
Thanks!
Tran Dung
|
|
|
|
|
Did you use access workgroup? If you use it you should change your provider
................
|
|
|
|
|
|
Guys in Web Application we use the Session object to follow user activity. What is it that is used in Windows Forms Application?
manv
|
|
|
|
|
What is you question?
................
|
|
|
|
|
My question is, what object is it that is used to trace user activities in Windows Forms Application. In ASP.NET we use the Session object.
manv
|
|
|
|
|
OK, let me ask this question, how do you avoid multiple logins in windows forms application.
manv
|
|
|
|
|
There is no equivelent object in Windows Forms. There is also no such thing as a login to a Windows Forms app unless you code in your own security system.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
If you want to control a user activities in windows environment, try to look at this article[^].
|
|
|
|
|
hello
i write this code from differnt examples.i want to use dataset in my code but i think dataset is working but this code is inserting data into my table tell me how i can i modify to get benefit of dataset. plz help me soon.
Dim mycon As OdbcConnection
Dim ds As New DataSet
mycon = New OdbcConnection("DSN=BLTPS;APP=Microsoft® Visual Studio .NET;WSID=BLHOMEPC;DATABASE=BLTPS;Trusted_Connection=Yes")
Dim selectString As String = "SELECT * FROM icloct"
mycon.Open()
Dim myOdbcCommand As New OdbcCommand
myOdbcCommand.Connection = mycon
Dim adapter As OdbcDataAdapter
adapter = New OdbcDataAdapter(selectString, mycon)
adapter.SelectCommand = New OdbcCommand(selectString, mycon)
adapter.Fill(ds, "icloct")
myOdbcCommand.CommandText = "INSERT INTO icloct(locid, locdes, adduser, adddate, addtime)VALUES ('klm','yes', '', '', '')"
adapter.InsertCommand = myOdbcCommand
myOdbcCommand.ExecuteNonQuery()
adapter.Update(ds, "icloct")
mycon.Close()
|
|
|
|
|
i m using DTS package in vb.net while running the project i m getting this error:
error: 13queryinterface for interface DTS.customtask failed
how to get rid of this error ???
|
|
|
|
|
|
Hi, I've got a 2D array which I would like to sort into descending order according to the first column but keep the information in the 2nd column in the same row as the information in the first column no matter where the sort moves it to in the array. To explain more clearly:
Supposing I had this 2D array:
|5 1|
|6 2|
|3 3|
|8 4|
|2 5|
I want my bubble sort to be able to sort it into:
|8 4|
|6 2|
|5 1|
|3 3|
|2 5|
All the info I've found on bubble sorts has only been about 1D arrays. Any help or a nudge in the right direction would be really appreciated!
Thanks,
your
peter
|
|
|
|
|
Something like this:
Private Sub Sort2DArray(ByVal TwoD_Arr(,) As Double)
'
Dim Tmp_Arr(0, 1) As Double
Dim upperInd As Integer
Dim lowerInd As Integer
'
For upperInd = 0 To TwoD_Arr.GetLength(0) - 1
'
For lowerInd = (upperInd + 1) To TwoD_Arr.GetLength(0) - 1
'
If (TwoD_Arr(lowerInd, 0) > TwoD_Arr(upperInd, 0)) Then
'
Tmp_Arr(0, 0) = TwoD_Arr(lowerInd, 0)
Tmp_Arr(0, 1) = TwoD_Arr(lowerInd, 1)
'
TwoD_Arr(lowerInd, 0) = TwoD_Arr(upperInd, 0)
TwoD_Arr(lowerInd, 1) = TwoD_Arr(upperInd, 1)
'
TwoD_Arr(upperInd, 0) = Tmp_Arr(0, 0)
TwoD_Arr(upperInd, 1) = Tmp_Arr(0, 1)
End If
'
Next
'
Next
'
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TwoD_Arr(,) As Double = {{5, 1}, {6, 2}, {3, 3}, {8, 4}, {2, 5}}
Dim i As Integer
Dim j As Integer
For i = 0 To TwoD_Arr.GetLength(0) - 1
Debug.WriteLine("UnSorted: " & TwoD_Arr(i, 0) & " " & TwoD_Arr(i, 1))
Next
Sort2DArray(TwoD_Arr)
For j = 0 To TwoD_Arr.GetLength(0) - 1
Debug.WriteLine("Sorted: " & TwoD_Arr(j, 0) & " " & TwoD_Arr(j, 1))
Next
End Sub
Returns:
UnSorted: 5 1
UnSorted: 6 2
UnSorted: 3 3
UnSorted: 8 4
UnSorted: 2 5
Sorted: 8 4
Sorted: 6 2
Sorted: 5 1
Sorted: 3 3
Sorted: 2 5
Hope that helps,
progload
|
|
|
|
|
Visual Basic 2005 Professional Edition:
I need to drag and drop an image from one PictureBox to another PictureBox where:
1) the image is visible while being dragged
2) the image can be dropped at any location within the target PictureBox
3) the image can be rotated within the target PictureBox
|
|
|
|
|
|
jo0ls at xtremevbtalk.com wrote a program that does it all!
1) Transparent backround on dragged objects.
2) See object as it is being dragged.
3) Rotate object.
4) Nudge object.
5) Delete object.
6) Drag multiple objects.
7) Drag multiple copies of an object.
8) Redrag objects.
9) Drag objects of any size
Wow!
<http: www.xtremevbtalk.com="" showthread.php?t="265584&goto=newpost">
|
|
|
|
|
Hi,
does anybody know ( or have ) some project to read doc/rtf. files? I would like to make something like document reader in VB. I'm looking for simple project for "notepad" or wordpad in visual basic.
Thanks
|
|
|
|
|
|
I want to make changes to the HTMLdocument that resides in a WebBrowser.Document
I can navigate to a web page,
WebBrowser1.Navigate(address)<br />
and the image looks good in WebBrowser1. After the document completes, I capture the event when a page element is clicked on:
Dim ClickedElement As HtmlElement<br />
Private Sub Document_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)<br />
If (WebBrowser1.Document IsNot Nothing) Then<br />
Dim pt As Point = System.Windows.Forms.Cursor.Position<br />
pt = PointToClient(pt)<br />
pt.Offset(-WebBrowser1.Left, -WebBrowser1.Top)<br />
ClickedElement = WebBrowser1.Document.GetElementFromPoint(pt) 'WebBrowser1.Document.Window.Position)<br />
ClickedElement.ScrollIntoView(True)<br />
tblElements.Rows.Clear()<br />
AddElementToTable(ClickedElement, 0, Direction.Ascending)<br />
DataGridView1.DataSource = tblElements<br />
End If<br />
End Sub
Now I can do either of these:
'Change the ID of an element<br />
If clickedElementID = "" then ClickedElement.ID = "t_19"<br />
or
<br />
'Add a new element after the one that was clicked<br />
Dim newID As String = ClickedElement.Id & "_t1"<br />
Dim newElement As HtmlElement = WebBrowser1.Document.CreateElement(newID)<br />
newElement.Id = newID<br />
ClickedElement.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterEnd, newElement)
Both of these changes show up if I check the element:
For Each el As HtmlElement In ClickedElement.Parent.Children<br />
Console.WriteLine("Sibling id: " & el.Id)<br />
Next
Sibling id: t_19
Sibling id: t_19_t1
But I can't figure out how to have the display reflect the change or how to save the UPDATED version of the html. The WebBrowser1.documenttext doesn't reflect any changes.
Thanks!
Grant
Everyone else's job looks easy
|
|
|
|
|
Can somebody please tell me how to find the remainder when one digit is divided by another digit?
Thanks and Regards
Amaneet Brar
|
|
|
|
|
Use the modulo operator MOD.
---
b { font-weight: normal; }
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
