Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Browsing all 21089 articles
Browse latest View live

webbrowser sound

I wonder how to remove the click sound of the webbrowser on its navigate or click or any events that makes a sound. How can that sound be remove or muted?

View Article


desperatly need webbrowser image extraction links

hi i need help with this webbrowser am working with , i need to extract all the ( .gif ) links from a page please give an example thanks been searching getting tired of it

View Article


[RESOLVED] Need Help with Startup Form

Hi All Im just having an issue while trying to load a Start form, example: I just want form1 Appears in screen for 5 seconds, then automatically close and open form2. Thanks All pd: never done this...

View Article

A Better Way Of Doing This

Below code shows that I have a For...Next loop checking 4 possibilities and for each one that is true I have the same code execution except for the value in DropCount. I set it up as a GoSub so I...

View Article

Run-time Error 3021, No Current Record, query string question.

I'm working with a few year old VB6 project, using Access 2000 tables. When my query string is run against a couple tables, I get a 'No current record' error. I believe now I have a syntax problem in...

View Article


Getting the value of the last characters from a string

I have the following string: Example 1 s = "Pole(1).CellNumber(1)=0" In the above example I would simply use the Val() function for the Right() of variable s for a length of 1 Value = Val(Right(s, 1))...

View Article

(winsock array) useragent change please read

i have combo1 with refferal links urls i have combo9 with useragents list Quote: Private Sub ws_Connect(Index As Integer) On Error Resume Next Dim agent As String, agent1 As String Dim packket As...

View Article

help (UNLOADING SOCKETS)

Private Sub Command3_Click() Dim lngI As Integer Dim strSplit() As String For lngI = 0 To List1.ListCount - 1 'Label1.Caption = List1.ListCount If lngI > 0 Then Unload ws(lngI) 'Unload Socket(Index)...

View Article


VB6 win32 API Control Other App Print

Hi, I have a VB6 app that needs to control another app. Operating systems are XP, Vista, and Win7. I can make successful API calls to do everything, but there are some issues. 1. I need to tell the...

View Article


Urgent Help Winsock failing to send 1 packet

Quote: Private Sub ws_Connect(Index As Integer) On Error Resume Next Dim agent As String, agent1 As String Dim packket As String, packet1 As String, packet2 As String, packet3 As String, posst As...

View Article

Open Different Data Source Name

Quote: FindCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\BSParking.mdb;" As you can see the example above it opens BSParking.mdb, Is there a...

View Article

Excel Sheet in vb6

Hi evryone I have an application in vb6 it's a databas and now is the problem how can I open an excel sheet without going to program excel. With a form ??? How to make this in the same application ?...

View Article

No value given for one or more required parameters

Hi On rs.open it gives me above error dim rs as adodb.recordset dim str as string Set rs = New ADODB.Recordset str = "select transactionno,vehicleid,grossshiftdate,custname,prcname from transact where...

View Article


help me how to give hint in quiz

hi am making quizbot. i need source code to give hint(show 2 3 word in from answer in there pattern) as the time reach the hint(hint of give word will increase). ex: who is first man who walked in...

View Article

Image may be NSFW.
Clik here to view.

"syntax error in where clause" - please help

Hi, please help me on the below code, i am new at VB. Code: Private Sub cmdOK_Click() Dim sqlPassword As String Dim rstPassword As ADODB.Recordset Dim intDaysLeft As Integer Dim dateHolder As Date Dim...

View Article


Similar repeating code and testing tools

PicBlackSquareDown1.Top = PicBlackSquareDown1.Top + speed If PicBlackSquareDown1.Location.Y > 800 Then PicBlackSquareDown1.Top = rnd.Next(-4000, 0) End If If...

View Article

Printer font not setting correctly

I have a program in VB4 16bit thats giving me trouble. I'm trying to get it to print to a modern printer with a fixed width font. If I set the font and font size in the code it works for one page and...

View Article


Password Attemp

Heya guys =) Here is my Code Password Code: Private Sub cmdLogin_Click() If txtPassword.Text = "training" Then EmployeeStartup.Show Unload Me Else If MsgBox("Do you want to try again ?", vbQuestion +...

View Article

Image may be NSFW.
Clik here to view.

How can i download the file?

Hello, How can i download the file in background? Example link: http://www.egitimhane.com/2-sinif-de...i-d133373.html Thanks.. Attached Images  

View Article

Image may be NSFW.
Clik here to view.

[RESOLVED] Invalid Property Value: DTPicker

EDIT FORM Code: Private Sub cmdUpdate_Click() On Error GoTo errupdate executeQuery "UPDATE Finder SET Owner = '" & txtOwner & "', EmployeeNumber = '" & txtEmployeeNumber & "',...

View Article
Browsing all 21089 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>