Is It Possible To Display An Amperstand & In A Label?
I know that the amperstand is used as the underline symbol for hot keys. but i need to use an Amperstand to help main words in title stand out. Any ideas? Otherwise i think i'm going to have to find a picture file.
Thanks!
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Display In One Label Box
Hi, i was just wondering if it was possible to display all my data in one label box, but in seperate lines like this
xxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxx
This is my code
Const intBasePay As Integer = 900
Dim curGrossPay As Currency
Dim curSales As Currency
Dim NetPay As Currency
Dim curHousing As Currency
Dim curFood As Currency
Dim curEntertain As Currency
Dim curMiscellaneous As Currency
'Declare Text Values as Numeric
curSales = Val(txtSales)
'Calculate
curGrossPay = intBasePay + (curSales * 0.6)
curNetPay = curGrossPay - (curGrossPay * 0.18)
lblDisplay.Caption = FormatCurrency(curNetPay)
curHousing = curNetPay * 0.3
lblHousing.Caption = FormatCurrency(curHousing)
curFood = curNetPay * 0.15
lblFood.Caption = FormatCurrency(curFood)
curEntertain = curNetPay * 0.5
lblEntertain.Caption = FormatCurrency(curEntertain)
curMiscellaneous = curNetPay * 0.05
lblMisc.Caption = FormatCurrency(curMiscellaneous)
How To Display , And & In A Label
Apparently these are special characters; I wanted to label a text box "Timeouts & Other Errors" but it came back with a _ in stead of a &.
Also, I want a label that starts yes STARTS with a comma! (It's immediately right of a text box that variably displays a queue number (e.g. Modifying Record #[0174], # [43] of [117] records.)
Right next of the text box currently showing [0174] is where I want to put my label that consists entirely of comma space pound-sign space.
Can I do this somehow? The comma disappears if I use it literally.
Max Display In A Label
i have a label on my form and i want to display only 9 characters in the label,
basically whatt i'm trying to do is a calculator program so that when the user clicks on the button let say button 1, and keep on pressing the button , the display should not go beyond 111111111 should be 9 chracters in the label only.
aprreciated the help
thnks
Label Display Problem
Hi guys, I'm sure this shouldn't be a difficult one to solve, but I'm darned if i know the answer...
I have one long procedure which takes a while to grab a load of stuff from a database, and I would like to display a label on the user form with a 'please wait' style message while the procedure is completed.
The problem is, the whole screen only updates once the procedure is finished, so it isn't making my label visible till it's done with the database.
Is there any way round this?
Thanks for your help,
Adam
Display *** In Password Label
i am making a password display in a label. however i want the password to display only *** in the label, but retain the string and store it in a string call password. is this possible? and also i'm not using a text box.
Display *** In Password Label
Edit by Iceplug: Make your own thread - you are a different user
I also need something like this.. except my password is entered into an Inputbox.
I've tried to adapt some of the code but its too advanced for me.
What I have got is -
-----------------------------------------------------------------
Private Sub mnuExit_Click()
Dim Password As String
Dim InputPassword As String
Dim Attempt As Integer
Password = "secret"
Attempt = 0
Do
Attempt = Attempt + 1
InputPassword = InputBox("Enter Password. This is attempt " & "number " & Attempt)
Loop Until (Attempt = 3) Or (InputPassword = Password) 'this will end the loop
If InputPassword = Password Then
MsgBox ("The Program will now exit")
Unload Me
Else
MsgBox ("You do not have the priviliges required to complete this operation.")
End If
End Sub
-----------------------------------------------------------------
This allows the user to enter the password. How would I implement the stars or bulletpoints?
Thanks!
Weekofday Display On Label
Hi..
I'm Making a Program with 3 labels to display , Time , Date and weekofday
label1= Time
label2= Date
label3= ?
How to make label3 label display weekofday ??
VB6 Display Label, Using Data In Sql!
Good day All,
I have a SQL database, which I manage data of the residents that are booked into and out of a hostel.
I have greated a procedure to call in any of the search criteria.
It is a label(fixed text) that must appear when the resident was there in the past.
Please help me.
Thanks
'To display a label if a resident was at the campus before
Public Sub DisplayPreVisit()
Dim PreVisit As Boolean
Dim rsPreVisit As New ADODB.Recordset
Set rsPreVisit = New ADODB.Recordset
rsPreVisit.Open "Select * From Residents Where [Id Number] = '" & txtIDNumber.Text & "'", cn, adOpenForwardOnly
If PreVisit = True Then
txtIDNumber.Text = rsPreVisit![ID Number]
PreVisit = rsPreVisit![ID Number]
lblPreVisit.Visible = True
rsPreVisit.Close
End If
'lblPreVisit.Visible = True
Set rsPreVisit = Nothing
End Sub
Label To Display User Name
Hi
I have a textbox on one of my forms that has to remember the name the user enters. Then on another form it has to display the name the user entered on a label. I tried but have failed so i was wondering if anybody could help.
Thanks
Jamie
Label Captions That Will Not Display!
Hopefully a very simple problem - for some reason my label captions will not display or update properly!
I have two labels, lblStatus and lblPercent, that are used to indicate the status of a ProgressBar. The form when loaded will show the default lblStatus caption (if I assign one at design time), but will not update at runtime. The odd thing is, if I Step through (F8) in debug mode, the lblStatus caption works fine. The lblPercent caption never updates to show the calculated progress percentage. Below is hopefully the entire relevant code section.
VB Code:
pcnt = 0 Arecord.MoveFirst lblStatus.Caption = "Processing Data ..." lblPercent.Visible = True lblPercent.Caption = pcnt & " %" For i = 0 To MaxRec - 1 ProgressBar1.Value = i pcnt = 100 * (i / (MaxRec - 1)) X(i) = Arecord!DateAndTime Y(i) = Arecord!Val / 4095 * 10# - 5# Arecord.MoveNext Next i lblStatus.Caption = "" lblPercent.Visible = False
Any guidance would be greatly appreciated!
Brian
Display A Label On Top Of A Listbox?
Well, I know that's not possible because of the z-order, but is there some other way to achieve this effect?
Here's what I have in mind: I would use a series of small listboxes to represent days of a calendar. Individual list items would be color coded (using Aaron Young's code to vary the backcolor of the items) where a certain color represents a specific type of appointment. I then want the day number in black superimposed over the "striped" listbox. That's the reason for the question - if a transparent label could be placed over the box, that would be convenient! But it can't be, so is there some other way to accomplish this effect?
BTW, I already have this working with arrays of image controls and label controls, but I want to look into this as an alternative. A solution I had tried before that used picture boxes instead of image controls, but that proved to be too resource-hungry.
Display An Image In A Label
I have a form called "frmBanquet." On the form, I have an image of a smile face called "imgSmile", and 40 labels in a control array. The labels are called "imgSeat." Because I have a control array, my first imgSeat is imgSeat(0) and my 40th is imgSeat(39). I hope you get what I'm talking about.
I'm tring to display a similing face icon in the occupied seats (imgSeat) on my form when I click. The smiling face icon is stored in the imgSmile control. I hope you understand what I'm talking about. Can anybody help me?
Display A Label During The Execution ...
Hi all
I use VBA Excel. The execution time of my program is quite long.
As a consequence, when it runs, a label with the text "Please wait ..." which appears.
Code:' Beginning
label_wait.Visible = False
...
' Long execution
label_wait.Visible = True
The problem is that the label appears only if an exceptional event occurs, for example a system message which says "Do you want to replace the content cells ..."
And I would like this label appears each time the programs is running !
Thanks in advance.
Rody
Edited by - Rody on 8/13/2004 12:44:59 AM
Display Message And Variable In The One Label
here is my current code
InputAmount is variable which is 5 and Original Input is the message
Label1 = "Original Input: " + InputAmount
i want it to output
Original Input: 5
how is it done, the current code displays error
Display Combo ListItem In Label
I wish to be able to diplay the users choice from combo box list(cboQuestions)to a label)lblScore. The combo box is on a differnet form(frmQuiz) to the label(frmQuestions)
I tried ..lblScore.Caption = frmQuiz.cboQuestions.ListIndex(Can you tell I'm a newbie?) but I just get an error message "method or data member not found"
How Do You Get A Label To Display A Checkbox's Text?
I'm creating an application where there is a group of checkboxes in a frame and there is a label box whose text is equal to the caption(s) of the checkboxes whose values are true. Currently I'm using the nested conditional statements to do this, and i have to use many combinations to get this. Is there any easier ways? Thanks. BTW, I'm using vb6.
Vb - Label Display Ascii Code ?????
Hi,
i'm trying to show in a VB label the ASCII code CHR(179) but i cannot display anything else than a 3 . How can i solve this problem?
thank you.
I'm trying to display old DOS programs in VB,and i need to display all the ascii code such as the chr(191) etc.
thank you a lot.
ciao max
:b
Help: Working With Pin Pad And Pin Pad DLL - To Display Pin Pad Message Into A Label
Hi all
I need some help
I was provided with a DLL
in the dll there is a function that will always update a variable whenever the display message on the pin pad is change
now I want to mirror that display in the pin pad into a label caption that I have (in vb6 form)
how can I mirror it? how can I add a watch to it so that it will capture every time it change?
thank you
*I just realize I post this in a wrong forum - Sorry
Can Label Display Be Updated Without DoEvents ?
Hi everybody,
When a label's caption is changed rapidly many times through a procedure, only the last text updated is displayed, unless DoEvents is executed after each change. But DoEvents updates not only the caption's display, but also the display of the other controls. Can only the caption of the label be updated after each change and not the other controls ?
How To Display Some Variable Value On Datareport Label
hello
i want to print record number on datareport i have not any field in database to store this
recordnumber
so i try this code that is attched with this question but this will display first value of record number for all rows .I think it is because label is constant and it can't change its value as row value changed.
any suggestion
i don't want to use oracle procedures (pl/sql) .
i have written code like this
in a module i have written this
Code:Public con As New ADODB.Connection
Public rec As New ADODB.Recordset[/code]
in a form i have place a datagrid,a textbox and a commnd button
Code:
Dim st As String
Private Sub Command1_Click()
st = "select * from emp where dept='" & Text1.Text & "'"
rec.CursorLocation = adUseClient
rec.Open st, con, adOpenForwardOnly, adLockReadOnly
Set DataGrid1.DataSource = rec.DataSource
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
If rec.State = adStateClosed Then
st = "select * from emp where dept='" & Text1.Text & "'"
rec.CursorLocation = adUseClient
rec.Open st, con, adOpenForwardOnly, adLockReadOnly
End If
Set DataReport1.DataSource = Nothing
DataReport1.DataMember = ""
Set DataReport1.DataSource = rec.DataSource
DataReport1.Sections("Section1").Controls(1).Caption = CStr(rec.AbsolutePosition)
DataReport1.Sections("Section1").Controls(2).DataMember = ""
DataReport1.Sections("Section1").Controls(2).DataField = rec.Fields("cfname").Name
DataReport1.Sections("Section1").Controls(3).DataMember = ""
DataReport1.Sections("Section1").Controls(3).DataField = rec.Fields("dept").Name
DataReport1.Show
End Sub
Private Sub Form_Load()
con.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"
End Sub
Edited by - namangoel on 2/25/2004 1:10:28 AM
Display Item From Datagrid As Label
I have created a small program for our children to keep track of their school work/assignments. I have an sql database called Schoolwork where they can enter the assignment name/date started/date completed/ due date etc, which I have displayed on my form in datagridview with a dropdown list to select the subject that they want to see (this part works well). Want I want to have happed is to have the last item (just 1 of the columns) appear as a label at the top of the form as a quick reference. EG If they have selected the subject 'Reading' I want just the title of the book that they entered last to appear as the label, eg Tom Sawyer, or if they have selected 'Maths' and the last item entered was - 12 times table - I want that to appear as the label.
Any help here appreciated.
Link DataCombo With Label Display?
I have a table in Access called 'product' which has 3 columns: ID, Description, UnitPrice. In my VB interface, The task is to have a combobox linked to the Product.Description and a label(or textbox) right next to the combobox which displays the corresponding UnitPrice for the certain product use has chosen. I've had the combobox linked to the table and display the product description, but how can I link the label to the DB and Combobox to display the corresponding UnitPrice? I'm using ADO DataControls. Thanks in advance!
How To Update Data Display By Textbox/Label
I've create form that can read data from com port. I'm using this code :
Code:
Private Sub MSComm1_OnComm()
Dim strInput As String
Dim intI As Integer
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
'display incoming event data to displaying textbox
strInput = .Input
Text1.Text = Text1.Text & strInput
End Select
End With
Rite now I'm trying to do something else using the same code. What I'm trying to do is when the data output from COM port is updated n I want to show it back in the same textbox. I mean replace the data with the new one. Can someone point me to something or mayb edit the code above.
PS: U can refer to my previous thread here -> http://www.vbforums.com/showthread.php?t=524024
Display Contents Of A Counter In A Textbox/label ??
Hi guys,
This is probably quite a basic question. I am using Visual Basic 6.
I have a counter.. CounterA.
How do I display the content of this counter in a textbox or label or something of that sort?
I tried this: lblA.AddItem (CounterA)
But it returned this error: Run-time Error "438":
Object doesn't support this property or method.
Please help
Help! Display Time In A Label (VB Express 2005)
Hello, newbie questions here.
I'm using VB 2005 Express.
I want to return the current time in Label2.
Current code:
VB Code:
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click Label2.Text = Now.ToString("HH:MM")
The problem is I have to click the label at run-time on the form in order for the time to show.
How can set things up so the Time displays automatically when the form loads without me having to click the label first?
Also, how can I display GMT or Universal Time instead of system time?
Thanks for helping the newbie!
Hide Treeview Label Display ??[CLOSED]
hi guys,
i am using a treeview. in the first set of node i am using alphabets and i am using images for that. in the child nodes i am using both images and texts. so i have to use treeview's style(7) tvwtreelinesplusminuspicturetext.
but in the parent node since i am not using text its giving the labeledit option, it looks odd. i feel it looks better without that. i have attached the image and showed my query in red arrow. can anyone guide me how to hide or not to show the label from the parent..
How To Display Selected FlexGrid Data In A Label
Attempting to make a graphical input for form data. So I populate a 132x60 grid with data from the form. When I select/highlight I want to be able to display what I selected in a label.
So If
12345678901234567890
ABC Company
So If select cols 3 through 13. I want the label to display "ABC company" is this possible?
Display SQL Results In Textbox Or Label ***RESOLVED***
Hello
I am new to VB but pretty experienced with SQL. My problem is getting the result of my query to display in a textbox or a label. Here is my code (very simple SQL!):
Private Sub cmdOK_Click()
Dim m_DB 'define the database connection
Dim m_RS 'define the recordset
Dim strSQL As String 'define SQL statement
Dim strUser As String 'define SQL database user name
Dim strPW As String 'define SQL database user password
strUser = "jhaney"
strPW = "firefly61"
strDate = txtDate.Text
'set the db connection and recordset objects
Set m_DB = CreateObject("ADODB.Connection")
Set m_RS = CreateObject("ADODB.Recordset")
'connect to the database
With m_DB
.Provider = "SQLOLEDB.1"
.ConnectionString = "DEERFIEL-FXUUUO"
.Open , strUser, strPW
.DefaultDatabase = "Berks"
End With
strSQL = "Select Count(Eligibility.member_id) From Eligibility"
m_DB.Execute strSQL
lblEligResult.Caption = strSQL
End Sub
This places the SQL statement in my label, not the results of the query.
I think my problem has to do with showing the recordset - I have searched the threads but can't find an answer. Please help if you can!
ThanX!
Label On Top Of A Picture Box Does Not Display The Caption At Run Time
hi! I am trying to create my own custom component for displaying and scrolling text. The way I am trying to achieve this is by having a PictureBox so I can set it's picture to whatever image I wish to to. I have 4 labels added on top of the textbox and the text is visible in the design mode but when I run the project the text is not displayed.
Can somebody please tell me why that is and if there is a way to display text on a textbox or form without making use of labels?!
Thank you
Img Combo Box, Selected An Option Then Display It In A Label
Hi,
i've been having a problem with image combo boxes, trying to put what data is in them into a label.
The deal is i have 3 image combo boxes (well many other but after i know how to do one the rest will come to me) with 3 options in of which i have to click on a option button for each combo to appear. For example click on the first opt button and the 1st combo will appear, then click on the second and the second combo wil appear etc.
The problem is how would i say select one of the options within one of the combo boxes, a model of a case, for example and then click a submit button and then that will display it on a label situated on the same form.
I know you will have to write some IF statements and then something along the lines of lblBasket.caption = "The case u have chosen is " & (variable).
Would i have to make each option in each combo box as a variable?
Thanks for any help in advance
Edited by - The Fayth on 5/14/2005 5:22:52 AM
Display Result Of Function As Label On Userform
Hello,
I am trying to display the result of a custom VBA function as a label on a userform. The function is called and takes arguments from three text boxes on the userform. I attached it to the exit parameter. (This may be part of the problem; I'm not sure).
There seem to be two problems, first all the text boxes don't always contain data, but because the arguments are not optional, I get a type mismatch error when the code runs (I tried switching some of them to optional, but it didn't help as you can see from my 'commented code).
The other problem is that even when all the arguments seem to be met (i.e. the text boxes all have data), I still get a compile error that the argument is not optional. This only happens if I try and pass the result to some aspect of the userform. As you can see from the last coded line in the custom function, if I assign it to a range on the worksheet, it functions fine.
Below are the codes. Any help you can provide would be appreciated. I use excel 03 and windows XP.
Note the exit procedure also contains a code that formats the text box to a specified date format, and this does work.
Code:Private Sub txtStartDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim StartDate As Date
Dim EndDate As Date
If IsDate(Me.txtStartDate.Value) Then
StartDate = Me.txtStartDate.Value
Me.txtStartDate.Value = Format(StartDate, "m/d/yyyy")
Else: MsgBox "Please enter a date"
End If
Call CalcDate(txtStartDate, txtYears, txtMonths, txtDays)
EndDate = CalcDate
lblProjectPeriod.Caption = EndDate
End Sub
and the custom function:
Code:Function CalcDate(StartDate As Date, Optional Years As Variant, Optional Months As Variant, _
Optional Days As Variant) As Date
'If IsMissing(Years) Then Years = False
' If Years = False Then Years = 0
' End If
'End If
'If IsMissing(Months) Then Months = False
' If Months = False Then Years = 0
' End If
' End If
' If IsMissing(Days) Then Days = False
' If Days = False Then Years = 0
' End If
'End If
CalcDate = DateAdd("yyyy", Years, StartDate)
CalcDate = DateAdd("m", Months, CalcDate)
CalcDate = DateAdd("d", Days, CalcDate)
CalcDate = DateAdd("d", -1, CalcDate)
'Range("L7") = CalcDate
Thanks for your help
Display Math Superscripts In Label.caption
I would like tot display x + y = ( x + y2 )2
Where y2 is y superscript 2 and the trailing two is also a superscript.
I have been unable to keep the formating from Word document when I display the question. With
lbldsarg1.Caption = Worksheets("MathQ").Cells(intCount, 10)
I do not like the appearance of text boxes and would prefer to display the math question on a label.
- tia, KEI
I search the FAQ's and Forum and did not find a solution. I apologize if I missed it.
Formating Unicode Text To Display In Label
Hi!
I am reading arabic(Jordan) from a text file with
ReadLine and opened the text file with TristateTrue parameter.
i use Enabeld windows xp pro with sp2 and the Arabic Keyborad
Layout is installed.
i use also TextBox with the font Ariel Ms Unicode
and when i type there i can see arabic in the correct form.
but somewhere in the conversion from the read file text to
the label caption things go wrong and i get gibrish
here is the code:
ProjectDirectory = App.Path
Set fs = CreateObject("Scripting.FileSystemObject")
Set ResultsFile = fs.OpenTextFile(ProjectDirectory + "" + "ArabicGuiText.txt", ForReading, , TristateTrue)
strLineReadFromFile = StrConv(ResultsFile.ReadLine, vbFromUnicode,JordanArabicLocaleId)
MsgBox strLineReadFromFile
LabelArab.Caption = strLineReadFromFile
I would thank and appriciate any help
Amiel
Need To Display Arabic String In Label Caption
HI
I need to display arabic string in label. The strings are stored in Sql server database in unicode format. When trying to display in label caption it is showing "?????"
Thanx in advance
Setting A Label Caption To Display Variable String
Hello!
I posted a question a little bit ago, which was answered and have moved on to a new question. Once again I am new at this. (couple of days).
I am trying to make a label caption display a variable string.
Code:
Private Sub Age_Display_Click()
Age_Display.Caption = Age
End Sub
The Label is: Age_Display
The variable is: Age
If I click on the label then the variable will show up, but I want it to automatically show, Changing the Label's caption.
I have properly declared all variables, as they are being recognized when I click on the label. As well as have defined the variable.
I tried using:
Private Sub Age_Display_Change()
instead of:
Private Sub Age_Display_Click()
But I don't know.
Thank you,
Kevin Heeney
Label Doesn't Display Japanese Text Correct
Hello,
I want to run my application with japanese text. The japanese text is in a unicode-DLL and is loaded at startup.
When I want to do this, I change the codepage to japanese on my XP and then start the program.
Now my problem:
The text in the menu, the titel from a frame and the tooltips are ok I think. The text in the labels and in the head of my SSTab-Control are not ok although all the unicode-strings in the DLL are ok.
Can anybody help me?
Thanks
urbi
Coding A Listbox To Display Matching Variable Array Item In Label Control
Can some one help me on this one. I am just a beginner with VB so it may seem easy for some of you. I have a listbox with 50 States listed in it. I also have a Variable Array (1 to 50) with the names of the state capitals declared in the general declarations section of the form. Within the same form, how do I code the Variable to display the state capital in a label control based on the State selection made in the listbox. The data for both the listbox and the variable were input from a sequential file that contained 50 records of two fields each, (State and its Capital). The listbox listindex would be 0-49 and the array is 1 -50. Just a few pointers would be good. Thanks.
BUG: Transparent Label On Transparent Control Does Not Display
I have create a user control.
I require the background to be transparent.
If I do this then I can't have a label on my control with a thransparent backgorund...it just disappears at design time.
When editing the usercontrol. I can seethe l;abel, but once dropped onto a form it vanishes.
Also, I can't use the DarwText API on a transparent control
Not happy.
Woof
How To Display Label &"%&" At Piechart...
Allo....
may I know, how to display label % at my piechart. I only can display
the value of percentage...ex: 65, 25 and 10.
I'm using MSChart to create this piechart. Can u give me the coding as
soon as posible???
Below is the sample coding from me...
With frmCashFlowResult.MSChart1
.ChartType = VtChChartType2dPie
.RowCount = 14
For Row = 1 To 14
value = Text8(Row)
If value <> Empty Then
If Val(Text7) > Val(Text22) Then
value1 = value / Text7 * 100
Else
value1 = value / Text22 * 100
End If
End If
label_name = Label16(Row).Caption
.Row = Row
.RowLabel = label_name
If value <> Empty Then
If value > 0 Then
.Data = value1
Else
.Data = 0
End If
Else
.Data = 0
End If
Next Row
End With
With frmCashFlowResult.MSChart1.Plot
For display = 1 To 14
.SeriesCollection.Item(display).DataPoints.Item(-1).DataPointLabel.LocationType
= VtChLabelLocationTypeOutside
Next display
End With
Thanx,
How To Display Label &"%&" At Piechart...
Allo....
may I know, how to display label % at my piechart. I only can display value of percentage...ex: 65, 25 and 10.
I'm using MSChart to create this piechart. Can u give me the coding as soon as posible???
Below is the sample coding from me...
With frmCashFlowResult.MSChart1.Plot
For display = 1 To 14
.SeriesCollection.Item(display).DataPoints.Item(-1).DataPointLabel.LocationType = VtChLabelLocationTypeOutside
Next display
End With
Thanx,
Label Won't Display &"&&"
Text boxes display the charachter "&" quite happily my Labels won't, e.g. "Lynch, Morris & Stevenson" is shown as "Lynch, Morris _Stevenson".
If you ask it what the 15th character of the caption is, it tells you "&" and gives it's Asc code correctly as 38. I've tried different fonts.
I'm using VB6, but I just tried it in VB3 and the same happened.
Am I going crazy or is this meant to happen? If so, why?
Display &"Loading&" In Label While Loading DataEnvironment
I have a cbo on a form that loads a large dataenvironment. It takes 20-40 seconds to load the data, during which time I want a label on the form to display "Loading Data...". I've tried the following code, but the label goes blank when the data is loading. What did I do wrong?
CODEDim Str1 as String
Dim Str2 as String
Private Sub Form_Load()
Str1 = "Ready"
Str2 = "Loading Data..."
End Sub
Private Sub Combo1_Click()
If Combo1 = 001
If Not Label1.Caption = Str2 Then
Label1.Caption = Str2
End If
DataEnvironment1.Command1.Open
If Not Label1.Caption = Str1 Then
Label1.Caption = Str1
End If
End If
End Sub
|
TRACKER
