CodeGuru Forums - Visual Basic 6.0 Programming

wordsearch puzzle complete vb6 or vb5

sinankrstarica — Tue, 18 Jun 2013 23:21:17 GMT

Does anyone have a complete program for word serach puzzles and wants to help him adapt to the puzzle as it is in my country?

Alignment on Printer.print

rumblefishx — Tue, 18 Jun 2013 15:55:06 GMT

Hi guys!

after many problems with data reports, crystal reports and things like that, i'm decided to use the Printer.print.

I made a simple class, that class receive a ListView Control and after i export the data of the listview to some array. Finally i can get the columheader titles, and the other records to print through the printer.print.

After got all the listview lines, i print them column by column, and i'm looking for some way to auto generate the spaces between columns. This way, that class could receive only a listview control and auto generate a report.

any idea to auto generate column spaces on my document made by Printer.print?

how to read things inside any window

onidarbe — Tue, 18 Jun 2013 09:44:34 GMT

I'd like to know how to read buttons or body text from some child window.
I already found the window handle ;)

It's the clipboard-window I'd like to read to capture the cut-addresses:

Attached Images

Calling data from a database?

SwiiftYz — Mon, 17 Jun 2013 11:53:46 GMT

I'm trying to create a program that has three sections

Game:
Settings:
Path:

When I select a game on the first section (It's a comboBox) I want to have the settings for that game show in the text box below it and where the game is currently installed. Is there a way to do this at all? I assume it would be done using databases?

VB6 - basic printing of item record info in catalogue system

gralush — Sun, 16 Jun 2013 09:46:15 GMT

I have used VB6 for several years to run "library" systems such as Stamp Collections, Book Lists etc.

At times it is necessary to print record extracts in formatted form to insert into ledgers.

The code used is simple using a subroutine with code - "Printer.Print" followed by a string of spaces "", & data name across the line of print required - about 80 chars max.

All was well until last week when I tried to print several item tags. Only 38 characters were printed on each line although no change had been made to the code.

Can anyone give me an explanation for this occurrence. Could it be that my new printer has caused the problem.

Please help me to solve "array problem"

dragon9 — Fri, 14 Jun 2013 15:07:34 GMT

Thanks no need to help.

Attached Images

About Crystal Reports 4.6

rumblefishx — Thu, 13 Jun 2013 16:36:37 GMT

Hi guys!

i've question about this tool :)

i need to make dinamic reports, and i know to do a report using the report designer. But, to do a dinamic report i need to create this reports by code, so i can change the table and columns in runtime.

Is possible to create dinamic reports by code, using crystal reports 4.6?

:P

Question about Ado shape

rumblefishx — Tue, 11 Jun 2013 11:17:55 GMT

Hi guys!

i've some problem with shape, because i didn't understand all the concept yet.

But, i need to use then... and i've a problem with a situation.

The problem is about querys that require "agregate function or group by clause". So, i dont know what i need to do, to put a query that require "group by clause" in ado shape without use group by.

is possible? any idea?

Error code help needed

davida1956 — Sat, 08 Jun 2013 23:50:21 GMT

Hi Folks.. I am a real newbie to this... no real knowledge about programming but keen to learn. I am playing with some code at the moment that should return a message that a 'category' has been added to an Access Database and another bit checking to see that if a no value is entered it writes an error message. I can't get the **** thing to work and think I may have tried to run before I can walk. saying that if there are no values. The error message I get is ...

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'TypeId ='.

it makes reference to line 67 in the code but I can't find anything there that may be wrong

and the code I am using is

<%
Dim Flag, Query
' If the Category Name field is empty, and the form has been submitted:
If Request("TypeName")="" Then
If Flag Then
Response.Write "

You must enter a cateogry name.

"
Else
' If Flag isn't true, show the edit form:
Dim CategoryRS
Set CategoryRS = Server.CreateObject("ADODB.Recordset")
CategoryRS.Open "SELECT * FROM Type WHERE TypeId =" & Request("iType"), Connect, 2, 3
End If
%>

Sorry for being such a thicko but can anybody out there please help me ???

thanks to you all who take an interest in these and help us newbies sort things out.....

Regards

David A

[RESOLVED] checking the same values??? why not working

djzotics — Thu, 06 Jun 2013 08:02:33 GMT

Ok this is absolutely mindboggling me, and i have no idea why it is not working, maybe im just being dumb and stupid, but i have tried other expressions.

Heres the Layout

9 Textboxes, a Button,
I want to Check that each row has the same written in it
I set the text boxes in a Control Array for easier use and reference

heres what i have but i keep getting a type mismatch, so must be doing something wrong, argh i hate doing things when im tired too but any idea why this is coming up as a mismatch

btw i wrote a function too in a module if it helps so i could call it easier

Code:

dim state as string

If  Form1.textinput(0).text And Form1.textinput(1).text = Form1.textinput(2).text  Then

state = Form1.textinput(0).text

'To Check if it works

' MsgBox (state) 

End If

oh dear lord an easy conjunction and i cant get it to work what am i missing pr doing wrong :cry:

How can i generate a dinamic datareport ?

rumblefishx — Wed, 05 Jun 2013 12:30:58 GMT

Hi Guys!

My System offers many ways to show the listview information, changing column header, positions and titles. So, i need to find some way to generate a dinamic datareport based on my listview by getting header column names and column informations.

Any Idea?

call a module from a form

blumoon — Tue, 04 Jun 2013 16:38:31 GMT

Can I call this module function form a form?

Code:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" _

    (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long

Private Declare Function OpenProcess Lib "Kernel32" _

    (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _

    ByVal dwProcessID As Long) As Long

Private Declare Function CloseHandle Lib "Kernel32" _

    (ByVal hObject As Long) As Long

Private Declare Function TerminateProcess Lib "Kernel32" _

    (ByVal hProcess As Long, ByVal uExitCode As Long) As Long



Private Const SYNCHRONIZE = &H100000

Private Const PROCESS_TERMINATE As Long = &H1



Public Sub terminateApp(ByVal sWindowTitle As String, ByVal fSilent As Boolean)



    ' Forcefully terminate a running application

    

    Dim lHwnd As Long

    Dim lProc As Long

    Dim lProcHnd As Long

    

    On Error GoTo errError1

    

    sWindowTitle = "Example"

    sWindowTitle = "Test"

    

    ' Get the target's window handle.

    lHwnd = FindWindow(vbNullString, sWindowTitle)

    If lHwnd = 0 Then

        If fSilent Then

            Exit Sub

        Else

            Err.Raise 1, , "Can't find window handle of application to terminate"

        End If

    End If



    ' Get the process

    GetWindowThreadProcessId lHwnd, lProc

    If lProc = 0 Then

        If fSilent Then

            Exit Sub

        Else

            Err.Raise 1, , "Can't get process ID of window handle"

        End If

    End If



    lProcHnd = OpenProcess(SYNCHRONIZE Or PROCESS_TERMINATE, 0, lProc)

    If lProcHnd = 0 Then

        If fSilent Then

            Exit Sub

        Else

            Err.Raise 1, , "Can't get process handle"

        End If

    End If



    ' Terminate Process

    If TerminateProcess(lProcHnd, 0&) <> 0 Then

        If Not fSilent Then

            Err.Raise 1, , "Failed to terminate process"

        End If

    End If



    ' Close the process.

    CloseHandle lProcHnd

    

    Exit Sub



errError1:

    Err.Raise Err.Number, , Err.Description

End Sub

I need to call that module when the specified app is running, any suggestion for codes in the form?

How many test form is open ?

dongtrien — Fri, 31 May 2013 02:37:19 GMT

I suppose there are many programs of the form, I can determine how much the order form is opened and the name of the form is not open? Who can share me with example, thanks

Reading USB data in VB6 application.

lunasnice — Wed, 29 May 2013 10:17:23 GMT

Hello All,

I have an VB6 application that gets data from a lasergun by RS232 (COM). Now we are receiving PC's that only have USB ports. If I connect the laser gun by USB I can receive data, as an keyboard input. The problem is that I don't want to allow that the focus go to other thing, than the application as with the COM communication (that there's an component MSCOMM that manages that). Can anyone help me to get a solution? Is there some component or way to do this?

Thanks in adavnced

Eunice

Can i make 2 instances of the same datareport?

rumblefishx — Tue, 28 May 2013 10:54:36 GMT

Hi Guys! :D

i'm working with datarepots on VB6, and the system offers many ways to show the listview. So, for each listview model, i need to align and resize all the objects again.

I was thinking about create some instances of the same datareport, and resize all objects without modify all the rest of the instances.

It's possible?

i'm trying like the code:

Code:

dim obj(2) as DataReport1

set obj(0) = New DataReport1

set obj(1) = New DataReport1

But, when i try to run the code... i receive a exception, and my VS close.

The exception is about win32 5504.

More 1 question... is possible to reset all the objects positions in the runtime?