2,155 Posted Topics
 | Fairly easy one.;) [CODE]If GetKeyState(vbKeyCapital) = 0 Then txtPass.Locked = False Else txtPass.Locked = True Msgbox "CAPSLOCK Pressed." End If[/CODE]  |
 | |
| | Re: Tool tip Under your text box MouseMove event the following - [CODE]Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.ToolTipText = Text1.Text End Sub[/CODE] |
| | @mgorecki, I see this was opened in 2007. Please mark this as solved so it can be closed up properly and not being hijacked again, thanks.:) Your assumption of IE6 and up is correct by the way. You need to use the web browser control under internet library from VB6 … |
| | Change the tab index to another control, for instance a command button. The reason the textbox gets focus on your form load event is because the tab index is set to 0. When a form loads, it will always pass the focus to the first control in a form where … |
| | You are trying to gain user rights to a folder that is read only. Open the folder using administrator rights. Search google on how to gain admin rights in vb6 using filesys objects.:) |
 | Re: Data grid This should have been the solution.... [CODE]Set DataGrid1.DataSource = rs.Datasource[/CODE];) |
| | You have not set a reference to rs or your connection "adoconn" [CODE]Dim adoconn As ADODB.Connection Dim rs As ADODB.RecordSet Set adoConn = New ADODB.Connection Set rs = New ADODB.RecordSet[/CODE] |
| | So, what is your question? are you getting any errors etc?:) |
| | |
| | @Divakar, please try not to add more comments to posts that is as old as this one. Raising the dead is seen as a no go here on Daniweb, thanks.:) |
| | First set a reference to Adobe Acrobat Type libraries. In a CLASS Module, the following - [CODE]Option Explicit Private Const mjwPDF = "1.3" Private Const mjwPDFVersion = "mjwPDF 1.0" Private wsPathConfig As String Private wsPathAdobe As String Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As … |
| | Nice solution Naveed.:) More kudos your way... |
| | |
| | Nicely done. Some kudos for you!;) |
 | |
| | |
| | |
| | |
| | |
| | |
 | Re: newby Welcome to all the nebies at Daniweb.:) Comes to show that age has nothing to do with typing and clicking away...;) |
| | Welcome to Daniweb and we wish you all the best on your protein app AND the fluked laptops.:)  |
| | Welcome to Daniweb and we wish you all the best in your web and data server builds.:) |
| | |
| | |
| | You have your error trap coding incorrect - Try the following... [CODE]private sub mySub(mydoc as string) On error GoTo handlemyerror 'only one goto call allowed kill app.path & "\" & mydoc 'You hgave to exit sub to goto err handler Exit Sub handlemyerror: msgbox "I cannot kill it" end sub[/CODE] |
| | Annie, I almost missed this post, sorry.;) To determine the week number, use something like - [CODE]Private Sub getWeekNumber() Dim iNumberOfTheWeek As Integer iNumberOfTheWeek = DatePart("ww", Now()) End Sub[/CODE] To get the day currently active - [CODE]Dim y As Integer Dim w As Integer Dim d As Integer Dim sDate … |
| | |
| | Have a look at [URL="http://bytes.com/topic/visual-basic-net/answers/461567-using-function-keys-vb-net"]THIS[/URL] link. The coding will be something like - [CODE]Private Sub Form1_KeyDown( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs _ ) Handles MyBase.KeyDown If e.KeyCode = Keys.F2 Then MsgBox("F2 pressed!") End If End Sub[/CODE] You will then have something like - [CODE]MSComm1.output = … |
| | |
| | I have asked the mods to move this from VB 4/5/6 to VB.Net. I'm sure you will find your solution over there.:) |
| | I have asked to move this from VB 4/5/6 to VB.Net. I'm sure you will find your solution there.:) |
| | @skhenry, this thread is already 3 years old AND you are asking for help in JAVA.:) Please open your own thread in JAVA, this is the vb 4/5/6 forum. |
| | [QUOTE]Now i would like to have a module of restoring and deleting backups of it.[/QUOTE] Restoring as in deleting the current database say on the server and then pasting the saved/backed up database? [QUOTE]Fingerprints from a Biometrics (This part isn't finish yet)[/QUOTE] Open a new thread if any questions on … |
| | Try to use a listview control. This way you can add data AND external values. Something like - [CODE]Do Until rs.EOF Set list = ListView1.ListItems.Add(, ,rs!RecordNumber) lista.ListItems.SubItems(1) = rs!DataLocation1 lista.ListItems.SubItems(2) = rs!DataLocation2 lista.ListItems.SubItems(3) = strPointA lista.ListItems.SubItems(4) = strPointB 'and so on... rs.MoveNext Loop[/CODE] |
| | Do you want to add the job description to a .pdf form, in other words, get the job description, open a pdf document and show the description in there? |
| | If you really want to start building rich and simplified applications, go for .net. I have made the change (eventually) a few months back and am not sorry. VB6 is unfortunately dying a slow death with no more support from MS, although it is still VERY powerful. |
| | |
| | Re: New guy Welcome to Daniweb Stan.:) This is probably the BEST place to learn new skills and techniques because of our diversity. Have a look at the menus at the top of the page and select your topic and fly away with questions and solutions.;)  |
 | 100% awesome. I did notice that by reporting bad posts is making life easier, thanks for that. I suppose this will be the solution to the age old problem on how to control bad/hijacked posts. As ancient mentioned, there are a few glitches though. All I have to do to …  |
| | Try the following - [CODE]Adodc1.Recordsource = "SELECT * FROM MyTableName WHERE FieldName LIKE 'cruz%'" Set Datagrid1.Recordsource = Adodc1[/CODE] |
 | |
| | Heres 3 samples - [CODE]Option Explicit Private Sub Command1_Click() Dim objSession As Object Dim objMessage As Object Dim objRecipient As Object 'Create the Session Object Set objSession = CreateObject("mapi.session") 'Logon using the session object 'Specify a valid profile name if you want to 'Avoid the logon dialog box objSession.Logon profileName:="MS … |
| | No, its not a stupid question, I just think it is in the wrong forum. Your responses will be much less than for instance under the web dev forums.:) I have already requested the mods to have a look and maybe move it to where you will get more exposure/answers. |
| | Did you manage to solve your problem yourself, or does this still need to be solved? |
| | In a module, add the following - [CODE]Option Explicit 'Function to Decrypt the encrypted Data. Public Function Decrypt(EncText As String, WatchWord As String) As String 'All the Dim things Follows Dim intKey As Integer Dim intX As Integer Dim strChar As String Dim DecText As String 'The Few Lines that … |
| | Please read our posting rules [URL="http://www.daniweb.com/forums/faq.php?faq=daniweb_policies"]HERE[/URL]. We do not allow the hijacking of other members posts, especially if they are as old as 2007. You are a new member, so we will oversee this. Please open your own thread and we will try and post a solution for you.:) Also, … |
| | Firstly, "urgent" does not mean much to us at all. We do this in our free time, so we will help when time allows and is suitable for US.:) Secondly, we do not do homework here for free. Please read our posting rules [URL="http://www.daniweb.com/forums/faq.php?faq=daniweb_policies"]HERE[/URL]. Thirdly, what have you done from … |
| | pBunkers, welcome first of all to Daniweb.:) We do unfortunately do not allow the hijacking of other peoples posts, especially when they are as old as this (2008).;) Please post your own thread and I promise we will help. Have a look at [URL="http://www.daniweb.com/forums/thread329871.html"]THIS[/URL] post discussing the same scenario... |
The End.