Things Were Okay UNTIL I Changed From Picturebox To Textbox For Output Display
Things were okay until I changed from picturebox to textbox for output display ---> Originally I was using a picturebox of which all 10 lines from a textfile displayed a-ok ... but then I changed over to textbox because I needed a scrollbar as picturebox does not have that ... now the 10 lines will not print, ONLY the very last line does ... Will someone please show me how to correct the code below to display the 10 lines of textfile instead of just the very last one?
The only change I made was I replaced Picture1.Print SampleOutput to Text3.Text = SampleOutput
Quote:
Private Sub Command2_Click()
'Runs loop to read and display all 10 lines from text file.
Open "C:My Documentsmytext.txt" For Input As #1
Do While Not EOF(1)
Input #1, SampleOutput
Text3.Text = SampleOutput
Loop
Close #1
End Sub
P.S. Why is it when I insert code indented as it should be, it comes out all left-justified when posted?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
How To Have A Textbox Accept Full Pathname Entered && Display Contents In Picturebox
Just learned how to create a textfile and have VB read it and display one OR all lines into a picture box.
My inquiry is on another method:
(a) I also have a textbox. Want to set it to accept the input of full textfile pathname, then the textfile is read and contents displayed in the picture box.
How would I do this? I was thinking to use an IF statement?? Really not sure.
I've attached my program files as that is only part I have not coded. (small beginner program)
Thank you for any help.
~ Juanita
Picturebox Text Disappears When Backcolor Changed (RESOLVED)
Changing the backcolor as below causes the text in it not to appear.
Any ideas?
Code:Picture2.Cls
Picture2.Print Format(tr1, "fixed"); Chr(10);
If tr1 >= 1.5 Then Picture2.BackColor = vbGreen Else Picture2.BackColor = vbWhite
Also,While I'm here, , how can I choose a fixed no. of decimal places? In the code above it is set to 2.
Thanks for any help
Jim
Edited by - jimvt on 6/18/2004 4:54:02 AM
Returning 2 Fields From A Query To Be Output On A Single Output Control, Eg. Textbox/label
Hi all..
Here's another question..
Is it possible to output 2 fields from a single query onto a single output control, eg. textbox or label? I've read before.. in a book titled "Sql Fundamentals" but I can't remember much- that it is possible to do so. The syntax looks something like this..
Code:
SELECT "Field1" // " Field2" FROM table1
um.. or is it...
Code:sql = "SELECT table1.Field1, table1.Field2 FROM table1 AS '"Field1//Field2"' "
set recordset = db.OpenRecordset(sql)
set label1.caption.datasource = recordset
I guess this would mainly apply onto fields such as First Name , LastName which would usually be required to be combined into FullName...
thanks!
Edited by - hueyjenn on 3/9/2003 6:53:16 AM
UserControl Display Settings Changed
Why does VB not provide a DisplaySettingsChanged event, at least for UserControls?
OK, here's the situation. I have a UserControl that has several custom color properties (OLE_COLOR) for which the user (developer) may select a System Color like ButtonFace. Using these colors the Control uses API calls to draw itself. Specifically it has several memory-only DCs that are bitblt'ed onto the UserControl DC in various combinations during the lifetime of the control. Generally these offscreen DCs only need to be redrawn (kind of time consuming) when specific properties change, ie these custom colors. If the user/program changes one of these properties (design time or run time) the OLE_COLOR, if it is a System Color, needs to be converted to an actual color using the GetSysColor API. Thus if the windows Display Settings change, I need to know this so I can convert the new System Colors and redraw the offscreen DCs.
I have thought about two workarounds, neither of which I like very much, so I am hoping I have missed something simpler, or someone can give me some advice on which of these is less bad.
1) When the display settings are changed, this does generate a UserControl_Paint event, so each time I could convert each of the custom OLE_COLOR properties to actual colors and check against the last color used to draw the control, and if it is different redraw the off-screen DCs.
Drawback: There are several of these custom color properties and I would have to check each one of them. In actual usage the control will get a lot of Paint events so I would like to keep the code executing there to a minimum.
2) Subclass the control and look for the appropriate message, WM_DISPLAYCHANGE I think.
Drawback: Obvious. Seems like a lot of crap to go through for this small issue. Also, I have had a lot of trouble with sub-classing within the IDE, crashes, etc. I could deal with this if it only caused problems when I have the actual UserControl open in the IDE for developement. But it would be a real pain if this caused problems when actually using the compiled OCX in a project in the IDE, or would this not be an issue?
Any advice would be appreciated, thanks.
Display Message When Combo Box Selection Has Changed
Hi Everyone,
How can I get a message to be displayed whenever a user selects a different item from a combo box? I tried using the combo box change event And the click event, but I can't get any message to be displayed. With the click event a message pops up while the combo box is being loaded in the Form_Load procedure. I just want the message to pop up when a user makes a selection not when it is being loaded. I have got the style property of the combo box set to 2 - Dropdown list. I would appreciate any help. Thanks.
Display Message Box When Data In Combo Box Array Is Changed
i have create a array of combobox durring runtime
So now i have say 4 combo boxes whihc is an array of combobox1
Now i have to make a coding that
when combobox(1) click a message box should be displayed
Pls help me in this
I am very new to Vb
How To Detect When A Textbox Value Is Changed?
Hi guys...I have a problem here which kinda got stuck halfway in another forum and no one seems to haev any idea how to solve it...
Quote:
Option Explicit
Private bText1Changed As Boolean
Public Cancelled As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Cancel = True
Me.Cancelled = True
Me.Hide
End If
End Sub
Private Sub Form_Load()
Me!txttext1 = Form1!txttext1.Text
Me!txttext2 = Form1!txttext2.Text
Me!txttext3 = Form1!txttext3.Text
bText1Changed = False
End Sub
Private Sub txttext1_Change()
If bText1Changed = True Then
MsgBox "Setting has changed"
End If
End Sub
I would like to have a msgbox appear when a value in a textbox is changed.
This is part of my code on form2, I have 2 forms and the textboxes in form2 will take on the values in the textboxes on form 1. There is a button (btnGetform2) in form1 which activates the form2. I can get the "Setting has changed" message now but the problem is that I will also get the message when I click on btnGetform2 button in form 1.
Can anyone help?
Query When Textbox Is Changed In VB 6.0
Hello
How can i run a query from a mdb database and show it in a datagrid control
when i put in a letter in a textbox?
for instance. when i type the letter "A" in the textbox i want to run a
query like " Select * from customers WHERE name = textbox.Text "
I do not know how to use the textbox name in the query, I think this should
lead me to the solution on finding names by entering the first, second third
letter etc. Or is there a better way?
Jeroen
How To Detect TextBox Text Changed?
Hello, Everyone,
I have serval text box which the text will change by its Link automatically. I have one green/red light to detect whether it is out range or not all the time. Would somebody be kind to let me know how should I program it and where should I put my code? I don't think that it is good idea to put it in Form_load.
Thank you very much!
Charlie
How To Check Which Textbox Data Has Been Changed?
I would like to make an update to a field determined by the textbox.
There will be different textbox representing the different field in a table. The user will search for the Agent's Information to be displayed in the textbox.
After that, if he wants to make any changes in the any textbox, he can do so and Click on the buttton "UPDATE"
The update will be done..only when the button "UPDATE" is clicked and the update is only for the certain field based on the certain textbox.
Please help!! THank you very much..
Remote TextBox Text Get Changed
hello,
I'm getting crazy,
I'm wondering if someone found a solution to modify a textbox on a remote window.
My app found easly remote handles .
When i try sendmessage or setSlgItemText APIs, none of them worked out.
My first question is Is it possible?
My second question, does someone could send me an example of the method.
thank's
yopit
Soory for my english, i'm french...
[Complete Newb] How Do I Make My Application Display Things Through A Proxy
I only started VB today so this will be a little jammy
I want to make a browser for my forum but i want to make it compatible for schools and work without being blocked [It's a gaming forum], what i would like to know is how i would make it connect via proxy to my site in the application so it wouldn't be blocked like a normal browser so any help?
Oh yeah and Hi i'm Ryan
Edit:
just noticed that i Accidentally posted this in the wrong forum sorry
[I have VB 6]
TextBox.Text Changed By Application Or User
Hi,
I have a situation where I would prefer to know if a particular TextBox.Text is changed by the application or by a user. Is there any way to find this out?
Cuz right now even when the application assigns a value to a textbox.text the procedure textbox_changed() gets excecuted. I want to know just when a user typed something in the textbox.text and changes the value.
Any and all HELP or suggestions are greatly appreciated.
PictureBox Output
if the output data to the picturebox is longer than the height of the picturebox, how do I make the picturebox scrollable so I can see the rest of the output data?
also, if I want to save the picturebox output to a txt file, what do I do?
(no image file involved, only text files)
thx
Moving Things From A Listview To A Textbox?
Hey guys I have a listview called report and it has check boxes. I have another form called form2 with a text2.text.
Is there a way when I check one item and press a button that checked item goes in the text2 of the form2?
Its just the item from the first column of the report listivew.
Thanks!
Picturebox Text Output, Can It Have Outline?
Hi,
I'm outputing text into the picturebox in my program, and i really wanted to have white letters with a black outline. Any recommendations on how I would go about doing that?
Will
2 Small Things (change Image And Textbox Value)
I just have 2 small questions:
1. How can I make my image (lets call it PictureBox1) change when I make a selection on combobox1. I have about 16 different images to go with the 16 different options.
2. How can I make it so that when I press a button [I just need the code for the following], it changes the value of a textbox on another form, and shows the tab that form is on?
Thanks!
How To Display Output At Command Prompt ?
Hi all,
I am making a command line application in VB. I have to show status and error on the command prompt. For this i am currently creating batch file and then run it by Shell command but it opens an another command window and then display message. My problem is that i have to display messages in the same window from where application is being run.
Can anyone please help.
Thanx in advance to all
Using A RichTextBox To Display Colored Output
I would like to use a RichTextBox as the output box for a program I am writing. I would like to print to this box using colors to highlight certain lines for emphasis and comparisons.
My question is, how do I print to a RichTextBox? The examples I have seen in this forum are for having the user type in the box. I would like the program to generate the text that goes in the RichTextBox.
Is a RichTextBox the best to use for this or should I use something else?
Thanks for the help.
Send Output To Primary Display To AGP Tv Out
hii
any 1 can help me i developed a software for cable tv operator i need help
i want to send output what ever comes through my software out put to TV out in AGP card , iwant keep desktop free to do my ither work simaltancely in my software im using Window media player and Flash Swf files and VB forms using SetTopMost function
please help me
Send Output To Primary Display To AGP Tv Out
hii
any 1 can help me i developed a software for cable tv operator i need help
i want to send output what ever comes through my software out put to TV out in AGP card , iwant keep desktop free to do my ither work simaltancely in my software im using Window media player and Flash Swf files and VB forms using SetTopMost function
please help me
How Can I Get A Picturebox To Display PNG?
How can I go about getting a picturebox to display a PNG image? the map I'm using in a game is a .png image because of it's small size and high quality.
So what can I go about doing to get a Picturebox to display a PNG image?
Trying To Display Intel DIB In A Picturebox
Hey Guys,
This is probably mad stupid but I cannot seem to display a DIB created with the intel library within a picturebox correctly, the image is always much larger so I can only see part of the image in the box. I thought that changing the scaleheight and width to match the DIB height and width would do the trick, however that has not worked out. Am I missing something obvious here?
'code
'create dialog class to open file
Set objComDlg = New Cmdlg
With objComDlg
.ShowOpen
if file is a jpg open into DIB
If Right(.FileName, 4) = ".jpg" Then
Set objDIB = New cDIBSection
LoadJPG objDIB, .FileName
End If
End With
With objDIB
picDisplay.ScaleMode = 3
'normally I would use the height/width properties but I hard coded the dimensions of the image I'm using to test
picDisplay.ScaleHeight = 1560 '.Height
picDisplay.ScaleWidth = 2040 '.Width
.PaintPicture picDisplay.hdc
end with
'code
API Preserve Display On Picturebox
Im having problems preserving the data that is displayed on a picturebox, im using windows API for receiving packets from a tablet, the data is displayed in the picturebox, everything is fine, but when i minimize the form or move any other window on top of it, the data, whatever was on the picturebox on that particular part where the new window was passed on it would be erased. Is there a way of preserving whatever was drawn under these circumstances without having to load the data everytime a gotfocus event occurs??
Nitoor
Display Mp3 As Waveform In Picturebox ??
Hi!
Does anyone of you know ho to display the peaks of a mp3 file in picturebox without decoding te whole file . With wave-files I know how to do this. i saw a free-ware programm "mp3directcut" this does it.
Display Large Array In Picturebox
I have a very large 2D array of long integers. Each integer is a color from the RGB() function. On disk, the array is about 60MB. What's the fastest way to display this in a picturebox? PSet and SetPixel work, but are slow. Thanks.
Display BITMAPINFO && Bits In Picturebox
Whining:
Ok, I give up... I have tried every incantation I can think of, and I just can not get an image to display with the correct colors in a Picturebox.
Background:
I am trying to display a custom image file format. My code can correctly convert the custom format to a bitmap file. I don't wish to create a file though (was merely for testing), but instead wish to display the image from memory into a Picturebox, or any other control.
Problem:
I can't get the image to display with the correct colors (for example what should be the white background gets displayed as a mint green)
I've included two different versions of DisplayBitmapinfo, they both yeild the same result. I can break inside either function, and check my structures, all have the correct data. Screenshot attached.
If you see a problem with this code, please... help me figure it out.
Code:
Private SomeSub()
Dim fnbmp As String
Dim lpbi As BITMAPINFO
'... Code which fills BITMAPINFO structure
Dim bBits() As Byte
ReDim bBits(lpbi.bmiHeader.biSizeImage - 1) As Byte
'... Code which fills bBits with the image data.
'Save Bitmap '''''''''''''''''''''''''''''''''''''''''''
SaveBitmap fnbmp, lpbi, COLORS_8_BIT, bBits
Debug.Print "Successfully created " & fnbmp
'Display the Bitmap ''''''''''''''''''''''''''''''
' The following line WILL correctly display the saved file.
' But I wont be saving in the future, it needs to be done
' from memory.
' Form1.Picture1.Picture = LoadPicture(fnbmp)
Form1.Picture1.AutoRedraw = True
DisplayBitmapinfo2 Form1.Picture1, lpbi, bBits
Form1.Picture1.Refresh
End Sub
'Display Bitmap Version 2 ''''''''''''''''''''''''''''''''''''''''
Private Sub DisplayBitmapinfo2(pb As PictureBox, lpbi As BITMAPINFO, bBits() As Byte)
Dim width As Long
Dim height As Long
Dim widthBytes As Long
Dim sizeBits As Long
Dim hBitmap As Long
Dim hMemDC As Long
Dim hOldBitmap As Long
Dim RC As Long
width = lpbi.bmiHeader.biWidth
height = lpbi.bmiHeader.biHeight
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
hMemDC = CreateCompatibleDC(pb.hDC)
' Swap following two lines to switch between B&W and Color
' hBitmap = CreateCompatibleBitmap(hMemDC, biWidth, Height)
hBitmap = CreateCompatibleBitmap(pb.hDC, width, height)
hOldBitmap = SelectObject(hMemDC, hBitmap)
SetDIBits hMemDC, hBitmap, 0, height, bBits(0), lpbi, DIB_RGB_COLORS
If hMemDC <> 0 And hBitmap <> 0 Then
BitBlt pb.hDC, 0, 0, width, height, hMemDC, 0, 0, SRCCOPY
RC = SelectObject(hMemDC, hOldBitmap)
RC = DeleteObject(hBitmap)
RC = DeleteDC(hMemDC)
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
' Display Bitmap Version 1
Private Sub DisplayBitmapinfo1(pb As PictureBox, lpbi As BITMAPINFO, bBits() As Byte)
Dim width As Long
Dim height As Long
Dim hBitmap As Long
Dim hMemDC As Long
Dim hOldBitmap As Long
Dim RC As Long
width = lpbi.bmiHeader.biWidth
height = lpbi.bmiHeader.biHeight
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
hMemDC = CreateCompatibleDC(pb.hDC)
hBitmap = CreateDIBitmap(pb.hDC, lpbi.bmiHeader, CBM_INIT, bBits(0), lpbi, DIB_RGB_COLORS)
hOldBitmap = SelectObject(hMemDC, hBitmap)
If hMemDC <> 0 And hBitmap <> 0 Then
BitBlt pb.hDC, 0, 0, width, height, hMemDC, 0, 0, SRCCOPY
RC = SelectObject(hMemDC, hOldBitmap)
RC = DeleteObject(hBitmap)
RC = DeleteDC(hMemDC)
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
See also my old thread in API:
http://www.xtremevbtalk.com/t86109.html
Display Image At Certain Location Within Picturebox
Hi guys,
I want to display an image, something like a logo at a certain location within my picturebox. But when I use the code:
Picture1.CurrentX = 3500
Picture1.CurrentY = 5000
Picture1.Picture = LoadPicture("H:LOGO.jpg")
The logo is displayed from the upper left corner, it seems that the CurrentX and CurrentY don't work.
So, my question to you: Is it possible to display an image at a certain location within a picturebox?
Kind regards,
Arjan
Display Picture From PictureBox 0n The Web Page
Can someone please help me with displaying the picture from the picturebox from com to display it in the ASP page?
I have this code where i am using GDI+ API, but it displays junk characters on the web.
GetObj ImgHolder.Picture1.Picture, Len(m_bmp), m_bmp
ReDim BMData(0 To (m_bmp.bmWidth * m_bmp.bmHeight * 4) - 1) As Byte
Call GetBitmapBits(ImgHolder.Picture1.Picture, UBound(BMData), BMData(0))
return BMData
Thank you in advance
A3 Size Photos Cannot Display In PictureBox
Thanks in Advance........
Anybody can help me....
I have developed a software in VB 6.0 for creating some JPG files. I have to paste these pictures to A3 size picturebox.
When I opened A3 JPGs in Picturebox, but it shows a part of the picture..
How can I include scroll bars in picturebox..
sudheer
Display A Graphic File In The Picturebox
I have the following code which should be able to display a *.jpg file in the picture box. Actually , I don't really quite understand the code thus I have no means to debug. I kindly need your help to solve my problem.
The problem that I encountered once I run the code is
1)at the line Covers.Fields!Cover = ""
. A run time error
such as "Error Occured". I have no idea what the error is. If I comment this
piece of code.
2) The next line that have error is
Covers.Fields("Cover").AppendChunk z
The error message is "This operation is not allowed in this context"
Additional information that might be useful is
Assume Covers and Books is a recordset and has been opened already.
The table Covers has the following fields
Data Element Data Properties null Allowed Others
ISBN Int No (Primary Key)
Cover Smallint No -
private Sub Command13_Click()
' load new cover image
Dim f as string
Dim rs as ADODB.Recordset
Dim z() as Byte
CommonDialog1.DefaultExt = "*.jpg"
CommonDialog1.DialogTitle = "Load Cover Image"
CommonDialog1.Filter = "JPEG files (*.jpg)|*.jpg"
CommonDialog1.ShowOpen
f = CommonDialog1.FileName
If len(Dir(f)) > 0 then
With DataEnvironment1
.rsBooks.Update
If Covers.BOF And Covers.EOF then
Covers.AddNew
Covers.Fields("ISBN").Value = .rsBooks.Fields!isbn
End If
Covers.Fields!Cover = ""
Open f for binary Access Read as #1
ReDim z(FileLen(f))
get #1, , z()
Covers.Fields("Cover").AppendChunk z
Close #1
Covers.Update
set Picture1.DataSource = Covers
End With
End If
End Sub
Thank you very much :-)
How To Display Arabic Text In PictureBox?
I am using Windows NT 4.0 (normal English version) and VB 6.0. How do I display Arabic text in a PictureBox? I was hoping it would be as easy as saying
Picture1.Font.Name = "Traditional Arabic"
Picture1.print "Hello in Arabic"
Thanks! (Gert Lombard - gertl@osias.com)
Output Textbox
I'm having trouble getting input from a textbox in Visual Basic 6.0
Private Sub cmdGetNumber_Click()
txtInput.Text = Str(Int(1000 * Rnd))
End Sub
The error message states: "Method or data member not found"
The properties window of the textbox has "txtInput" next to "Name"
In the coding window, when I type "txtInput.", a list of items
appears. The list does not contain "Text".
Why doesn't it work?
How To Display A Byte Array Bitmap On Picturebox?
There is a byte array(BMP1()), it include a full bitmap, how to display this bitmap on a picturebox? Of course i can save the byte array as a file(test.bmp) first, and use set picture1.picture=loadpicture("test.bmp"), but i dont want to use this method. How to display this bitmap on a picturebox without saving as a file?
Thanks in advan.
URGENT Fix Display In When Printing In A PictureBox [ RESOLVED ]
Hi im printing in a picbox, when in run my app in my computer the text i printed in the picbox siplays just fine; but when i install my app in another computer (same OS) the display move all around and makes a mess .. how can ia make a diplay that displays correctly in any pc in install it?
plas, its urgent! thx
Help!! Changed One Form, All Projects Changed
I just modified a vb6 program, and saved as new project. Problem, all the other vb6 projects in the folder also changed (vers 1, 2, 3 etc)
Is there any way to recover the original.
Also, I did make an exe of the original. Any way to get the coding from the exe file?
Thanks,
David
Get The "changed" Data From A _chage Textbox Event
Hi there,
Im Fairly new to all this stuff, how do I get the text that has changed on a _change event? At the moment i'm using the following code:
Code:
Private Sub txtRecieved_Change()
If AutoLog = True Then
Dim FileName As String
Dim FileNumber As Integer
Dim DataToWrite As String
'Define the variables [well no * * * *]
DataToWrite = vbCrLf & txtRecieved.n
FileName = App.Path & "Logs" & Date$ & ".txt"
'This makes sure the file saved is in the same dir as the application. Else it gets saved
'in the same directory as the thingy being listed...
FileNumber = FreeFile()
'Set the file number to a "free file"
Open FileName For Append As FileNumber
'Open the file for APPENDING (See the tut for details about different modes)
Write #FileNumber, DataToWrite
Close FileNumber
End If
End Sub
Note that the "AutoLog" is defined under the general declarations thingy, and its changed by another function (Which is in an options menu)
The thing is that this produces log files that look like the one below. Two questions really:
1) How to get rid of the " marks where new stuff is being written
2) How to return the changed text so I only write to the text file what has changed
Much thanks
Twigathy
How To Output A Textbox Into A File?
Hi..
I have a textbox that contains all my information. I want to output all this information to a text file at the press of a button and be displayed to the user. This file shouldn't be saved into any directory until the user decides to save it.
How do i go about doing this?
Thanks!!
Regards
Vivien
Difficult Textbox Output!!!
I have some problems making this code right. I can do it with about 120 If-Then commands, but I think there is a easyer way. Maby using loops or something.
First I use Combobox with 3 choises, index 0-2. (I have a new form to use for each indexnumber)
Then in a new Combobox I shall make a new choise between 10 different texts, index 0-9. (on each of the tree forms there is 40 textboxes(10 arrays of 4 textboxes))
From the choises I make I want the program to output the info from the textbox-array, in one of the 3 forms, to a textbox-array in my first form.
How the hell can I do that?
Textbox Output To Variable
Im trying to write a frontend for a set of batch files, that have 3 variables in them. I want to use text boxes as the inpt for the boxes. But im not quite sure how to set the input of the text box to a variable to plug into the Bat's command line.
|
TRACKER
