Heres the actual code i'm using and trying to PRINT with
DIM Cnt AS INTEGER
DIM Y AS INTEGER, X AS INTEGER, Num AS INTEGER
DEF SEG = &HB800
Num = FREEFILE
OPEN "LPT1:" FOR OUTPUT AS #Num
WIDTH #Num, 100
PRINT #Num, ""
FOR Y = 2 TO 25 '-----50 or 25, depending on screen height
FOR X = 1...
printer.PRINT "Hello"
printer.PRINT CHR$(12)
printer.ENDDOC
Thanks Buff1 the CHR$(12) worked !!
but now the Page Prints out immediately, but then the Red Flashing Light on the HP Printer comes on "after" the page is printed
a small step in the right direction ?? :)
now you have to push the...
Hum... Smells like homework.
Search the VB related forums/faq's for "read" "file" "input" and you will find a few threads/examples that should help you.
=========================================================
i wish i was young enough to have homework :) LOL
and the "Search" usually hardly...
some of the code below might be of use to you ??
VERSION 5.00
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form CCS_Play
ClientHeight = 7590
ClientLeft = 1095
ClientTop...
i thought by now a lot of people/programmers would have run into this same problem ??..and someone would have had a quick & easy fix already :)
tested on 6 different computers ( Win95, Win98,ME, XP-Pro so far) all with various models of HP printers
the only one working perfectly everytime is...
How can you read for example the first 10 Characters of a Text File ??
Thanks
MaxRace Software - Larry Meaux
ET_Analyst for DragRacers
Support Israel - Genesis 12:3
a computer program (.EXE) i wrote, prints out a report
immediately on some computers..but on other computers
the Print goes into action immediately..then stops..then Red Light flashes on Printer...if you then press the red button, printing resumes normally and the page is printed and ejected...
http://story.news.yahoo.com/news?tmpl=story&u=/afp/20040214/tc_afp/us_it_computer_software_040214233524
just found article , it wasn't VB programming language
MaxRace Software - Larry Meaux
ET_Analyst for DragRacers
Support Israel - Genesis 12:3
someone told me they saw a few days ago on TV newscast that MS original source code was somehow uploaded to server , and code was being downloaded across Internet ??
was that VB.Net or VB6 ??
it was supposed to be MS's actual source code to actual programming language ??
or just...
If text1(0).Visible and text1(0).Enabled then text1(0).SetFocus
--------------------------------
Many thanks CCLINT !!!!!!!!!
That works and i gave you a Star !!
Thanks MaxRace Software - Larry Meaux
ET_Analyst for DragRacers
Support Israel - Genesis 12:3
i can still continue to add Control Arrays on the Form
one at a time ...i've added over 50 more since the problem,
complies to .EXE no problems, works correctly, on different
OS and different computers tested so far
just can't Copy/Paste "GROUPS" of TextBox Control arrays correctly...
CCLINT , thats what i tried too , but get an error message
and its a regular VB6.0 ComboBox control
heres the actual code along with your suggestion, but doesn't work
Private Sub Combo1_Click(Index As Integer)
Select Case Index
Case 0
Text1_HelpLine = "Select the Body Type that...
CCLINT ;
this works with KeyDown , but i'm looking for a way to accomplish the same effect when the User uses a Mouse-Click on the ComboBox ...any other ideas or tips ??
Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape...
CCLINT (Programmer) , thats the 1st thing i tried,
but , i get an Error message , when running that code
Private Sub Combo1_Click()
Text1.SetFocus
End Sub
"Invalid proceedure call or argument"
MaxRace Software - Larry Meaux
ET_Analyst for DragRacers...
how can i set Focus to a TextBox Control
after clicking on a selection in a ComboBox
MaxRace Software - Larry Meaux
ET_Analyst for DragRacers
Support Israel - Genesis 12:3
i've written a VB6.0 program that uses Control Arrays
and "all" the Controls on the Form are Control Arrays
also using PictureBox arrays as a type of "Page/Container"
that have multiple PictureBoxes that each contain groups of
Label, ComboBoxes, and TextBox Contol arrays...
Ahhuang ,
1 more thing ..you will find out "Copying/Pasteing"
groups of Control Arrays ; such as , TextBoxes ,
that VB6.0 will "REVERSE" the new pasted Control Array Index
"ORDER" .........also , the 3D effects of TextBox bottom
shadow color will change...
Ahhuang ,
a partial example of using Control Arrays
use the new "INDEX as Integer" that will appear in your Subs
------------------------------------------------------
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case...
this is what i had/tried last night that doesn't work !
Private Sub Text1_GotFocus()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
-----------------------
since i had only 1 TextBox , i thought VB6 would cause Text1
to stay in FOCUS , but it doesn't , without...
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
Label1.Caption = Text1
Text1.SetFocus '<---Forgot to type in this Line
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
=======================
the above works now , with only 1...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.