Display Loftware Labels In Forms
good day to all you codegurus. i recently encountered a problem when a task was handed to me. we are using Loftware Labelling software here in our office to print barcode labels. i need to create a simple program to display and print .lwl files on my form. ".lwl" is the extension name of the labels created in Loftware. i have searched and search the internet on how to do this and i found the activex of Loftware, but it only allows the printing of the labels not the displaying side. does anyone know how to do this? i would really appreciate it. thanks and have a good day.
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Making Labels = Labels In Different Forms
hi, i have 2 forms in my program, one has a label e.g. lbl1, and so does the other e.g. lbl2
i need to find a way of making lbl2 equal to whatever is in lbl1, u have tried lbl2=lbl1 and nothing appears in it. any help would be great
How Can I Display Names In The Labels.
Hi,
How can I display names in the labels that belong to the same FIELD.
I have,
Data1 control connected to DatabaseName = D GeneratrDataGPX0304.mdb
Command1 control activates
Data1.RecordSource = "SELECT * FROM GPX0304a WHERE Field3 = 1"
Label1.DataSource = Data1
Label1.DataField = Field8
I'm getting the name in Label1, but how do I get the remaining names in
Labels 2,3,4 and 5
Your help is always appreciated,
Wally
Display Items Of ListBox Into Labels
Hello,
Using filesystemobject, I've been able to search through a folder, locate the subfolders and display the results in a listbox. But I think listboxes are ugly and I don't want it to be visible in my project. My question is, is there a way to output the items in the listbox into an array of labels?
If so, how would I go about it? I've searched but have come up fruitless.
Display Results Of Websearch On Labels.
Hi again.
i am needing a lot of help.
I have been working all day to resolve this problem.
Now I posted the search sting to the website and automatically clicked on the submit button.
So now the Webbrowser displays all the results.
I use this website with results, and send an excel webquery to get all the tables. But I am not achieving this.
Where am i goign wrong?
Please Help again!!
My DOM is as below.
Option Explicit
Sub testme()
Dim xlObj As Object
Dim xlSh As Worksheet
Set xlObj = CreateObject("Excel.Application") 'will create an excel instance
xlObj.Visible = True
xlObj.Workbooks.Open "c:querytest.xls" 'open the saved workbook
Set xlSh = xlObj.Workbooks(1).Sheets(1)
URL_Post_Query (xlSh)
'after all is done release the objects
xlObj.Workbooks(1).Close True 'save changes
Set xlSh = Nothing
xlObj.Quit
Set xlObj = Nothing
End Sub
Sub URL_Get_Query(ByVal xlSheet As Worksheet)
With xlSheet.QueryTables.Add(Connection:= _
"URL;website-bin/excel.exe", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub
Thanks a lot
Display Speed - Labels *** Resolved** Thanks
I have to update several hundred files and want to show the name of the file currently being updated. So, at the begining of processing each file I put the file's name into the caption of a label. However, it never displays the new label contents except when the last one is finished. It seems the machine doesn't actually have time to do the display. AM I making sense? If I put a break on the line after I update the caption and view the object, the message is there, but when running without the break, the label stays blank.
Any thoughts?? Thanks in advance
How To Display Unicode Menu Labels
Hi All
Can any body help me out in finding how to display Menu Bar with Unicide charater. Actually I am developing a multi-Lingual application in VB6 and I need to show the menu bar and Message box in English, Russian & Vietnamese with Unicode.
I would really be greatful if any abody can help me out in finding out a way to do this.
Thanks 'n' Regards
Dang T.T
Inserting Greek Symbols Into Display Labels
I am working on a resistance calculator for a class, and i need to insert the greek character omega into the final value display, the professor didnt tell us how to and i cant seem to find how to do it anywhere.
thanks for any help
How To Retrieve Data From Database And Display It In Labels?
I would like to know how i should go about doing the above.
I know it has something to do with lblHelp.caption.
But the problem for me now is i have two combo boxes to select two conditions and the data retrieved from my database to be displayed has to be based on what is selected in the combo boxes. Say the comboboxes Im using are cmbDepts and cmbEmployees and my label is called lblname can someone guide me? lblname.caption = ?????
Need To Make My Labels Appear In A Currency Format And Display $ Sign So $0.00
What i need to do is that when i press add, i want the label to just display it in a currency format e.g. $0.00.
Ohk thats the code for my entire project, I think you should only need to read the code in cmdAdd.
Also I attached my project. If you see it you'll see a dollar sign but thats just a separate label with it in $, kinda cheap i know.
Adding Grid Of Labels At Runtime - For Summary Display
hi guys
Code:
Public Sub SummaryDraw()
Dim lbldisplay As New Label
Dim labelsize As Integer, toplabeltop As Integer, labelleft As Integer, row As Integer, column As Integer
For row = 0 To 15
For column = 0 To 15
form1.lbldisplay = New Label()
form1.lbldisplay.Name = row & "," & column
form1.lbldisplay.Size = New Size(labelsize, labelsize)
form1.lbldisplay.Top = toplabeltop + (row * labelsize)
form1.lbldisplay.Left = labelleft + (column * labelsize)
form1.lbldisplay.BackColor = Color.Black
form1.frmDisplay.Controls.Add (lbldisplay)
Next
Next
End Sub
This code sort of works in VB but i cant get it to work in VBA i dont know aht thing that differs from VBA to VB to make it work so any help would be great.
What im doing is to create a grid made with lables to display my data, I also want to add a tag to each label as its created as my range is on a loop and links to a label using a tag.
In theory i think it will work but i'm not sure if im constrained by vba.
AL
Edited by - Geof on 11/5/2007 6:15:38 AM
Different Labels To Control Different Forms With Popup Menu
Hi All,
I have 3 labels named Label2, Label3 and Label4 located on the form1.
I wanted to used popup menu right click on these labels and load different forms. Let say label 2 to form2, Label3 to form3 and Label4 to Form4 and so on.....
Here is my code...
Code:
Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu mnuPty
End If
End Sub
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu mnuPty
End If
End Sub
Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As
Single)
If Button = vbRightButton Then
PopupMenu mnuPty
End If
End Sub
Private Sub mnuPro_Click(Index As Integer)
???????????????
End Sub
Begin VB.Menu mnuPty 'Main
Caption = "&Property"
Visible = 0 'False
Begin VB.Menu mnuPro 'Sub menu
Caption = "&Properties"
I need to use only one sub menu mnuPro (caption named "Properties") to load different forms....of course forms should show respectively with labels ..
If I do right click and trigger the "Properties" on the lable2, I wanted to show form2.... same thing Label3 >> Properties>>and load form3 ......
Please advise... how should I write this type of tricky logic code...
khtoo
Display 2 Forms
Hi I have 2 forms that are loaded and shown in the screen,but form 1 is displayed whereas form2 is minimized.When the user clicks on save in form1,I want to display form2 and set the focus on it(I want the form1 to be shown maximzed and form2 at the center and to set the focus on form2)
how can I do it?
Display Two Forms
Hi, I am trying to display two forms right next to each other(side by side). Can anyone tell me how to display form1 and form2 right next to each other?
Can't Display Forms!!!
I am running VB6. I completed a project a couple of months ago and went to open that same project (on the same PC) today to make a minor edit. I could open the code windows for all of the forms but I couldn't open any of the forms. When I tried, I got an error that said something like, "VB6 has caused an error in VB6.exe. VB6 will now close. If you continue to have problems, try restarting your computer." I tired a bunch of stuff including restarting and trying to open other VB project's forms. No good. I also tried re-installing VB6 and when that didn't work, I tired uninstalling, then reinstalling. Still NG. Any ideas? Anyone seen this before?
thanks.........matt
Display Axis Titles And Axis Labels
Hello
I hope someone can help me. I have a scatterchart MSchart on a form and i want to be able to plot different categories on the chart instead of numbers. I have created a 30 by 30 grid split into 3 partitions for each axis, and devised a formula to place the markers within the correct space. I want to put labels on the chart to show what each partition means. Is there anyway i can do this either through the MSCHart object or by placing a box over the chart to show the labels? at the moment i can place nothing above the chart to hide or display text. Perhaps i am going about this in the wrong way - can anyone advise me please
many thanks in advance
How To Display On Separate Forms
How to display sumthing on seperate form? like lets say i want to disply a number but using a command button..a command botton is on the form and i want display that number on separete form..How dp idp that? pls...
MDI Child Forms Display
Maybe this has been answered somewhere but I have not spotted it.
I have my MDI child forms and I wish to display them in the centre of the screen everytime i need to show them. How can I ensure that I achieve this?
Controlling Display Of Forms
Hey guys,
I've been working on a database project with VB6 and I've got as far as getting all my back end and forms done, I'm now just working on somebasic program contol. I've currently got the following piece of code;
Code:
frmSearchRecipient.Show Modal, Me
frmUpdateRecipient.Show Modal, Me
Those both live inside an MDI parent.
Just to explain what I'm trying to do. Because I use my 'search' forms in a couple of places, I'd like to be able to reuse them rather than have multiple forms. The ultimate aim of this exercise is to do a search using frmSearchRecipient, that then passes the primary key back to a variable that I've defined, and then that passes the key to frmUpdateRecipient which then uses it to pull up the appropriate details to modify from a wider range of sources. That part I've got pretty much worked out.
The dilemma I've got is that frmSearchRecipent comes up. frmUpdateRecipient comes up straight over the top of it. And I can't for the life of me work out how to stop that from happening.
As i said, I'm only doing basic program flow stuff at the moment - I haven't got down to the nitty gritty of writing all the variable-passing or DAO stuff yet. But given that, has someone got a tip for getting frmUpdateRecipient to wait until I've finished with frmSearchRecipient?
Display Spreadsheet On Vb Forms..
Display spreadsheet
how do i display an excel spreadsheet on a picture box or is there other alternatives(which i believe there is but dunno how) that can display a spreadsheet on a control of a vb form that can also scroll up/down /left/right ? thank!
Display Thumbnails In Forms
My problem is that I have to display thumbnails pictures on a frame in a form.
When I have many pictures, I can't display it on the frame because the frame control is not scollable. Is there any control object that I can use to display pictures so that I can scroll up and down to view the pictures.
I have tried to connect a vscrollbar control to the frame, but I don't know how to use it
I want to display the pictures just as in the clip art selection in microsoft word.
Please help me
thanks
Display Numbers In Forms
I currently have programs that connect to dBASE files. When displaying numeric values (ie 456.70) they display as (ie 456.7)
what am I missing?
Is There A Way To Display Multiple Forms
Hi,
I have a list box with the entire job listed in it.
Where a user click on one job, it will load up one form with all the
information regarding to that job.
I am looking for a way to display multiple forms if more than one job
selected from the list box. It will look like Internet Explorer with
multiple windows open.
Since all the jobs calculated with same algorithm, I can just use the
list to identify the job number and load up each form with individual
data.
Do you think this is possible?
Thanks!
2 Forms Display At The Same Time
Dear All,
Could any of you could help how to display 2 forms at the same time and also
we could click to any of the form without closing any form of them.
For example : 1st form display global data on datagrid let say customer data.
2nd form display detail data on datagrid let say customer order data.
When we click the 1st form the 2nd form will display appropriate data.
Thanks to all of you.
Dual VGA Display Of Forms In VB
Hi All,
Dual VGA display.
I have a requirement where i have to display to forms simatanesouly in two different moniters.
Requirement are like this.
1.When user login to vb application, Master system will display the main application, and the second screen should display the main MDI form and a custom form say Form2. This form(form2) contains actual data read for m/c(cancer cure m/c) and user set values.In the first screen which user sets values, i want to pass these values to second screen.
Is it possible and how? Please....
I am very new to this concept.
I am not clear , please let me know.
MDI Child Forms: Display Order
Hi All,
I have checked the forums for how to display the Child forms in an order but no luck. I am trying to order 6 childs form in the parend window. I think they display in order of their creation, the last one is shown on the top (selected).Is it possible to control this so that I can order them the way I want?
Thanks in advance.
Hudai
Can I Use The Same Frame To Display Multiple Forms?
What I would like to do is setup a menu system, so for the main form you will have a top navigation linking to different forms, but instead of loading a new form, I would like it if all info from that form would display in a frame, is this possible?
So if I have 3 button on my main page, button 1 links to form2, button 2 links to form 3, button 3 links to form 4 etc, so if I click button 1 form 2 will be displayed in the frame and so on.
Controlling The Loading And Display Of Forms
Good Morning
What are the two methods and two statements that Visual Basic uses to control the loading and display of forms? This gets back to my issue of coming to grips with statements (code) and methods - the difference. Any advice welcome. Thanks. Mike.
Visible Forms In Different Display Resolutions
I have split my screen into six parts.
In these parts must be loaded six forms.
In my resolution (1280x1024) is all ok but in lower resolution,some buttons of the forms isn't visible.
Does anybody know what to do to solve this problem and the forms to be adjusted in all display resolutions automatically?
Input Boxes To Display Forms
I was wondering if someone could help me. I have an input box on one of my forms and i want the value entered into it to display the form where id = the value entered. I have the following code but it does not work:
Private Sub Command26_click()
'Find the record that matches the input box
Dim getid As Integer
Dim rs As Object
Set rs = Me.Recordset.Clone
getid = InputBox("Enter the Student id", "Student ID")
Set rs = Me.Recordset.Clone
rs.FindFirst "[STU_ID] = " & getid
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Is It Possible To Use A Splitter To Display Multiple Forms??
I've been searching for quite a while to find a splitter that works with forms instead of just controls. I found one (SSSplitter by Sheridan) but it doesn't allow you to set focus in the different panes, making it useless to me. Can anyone help?
Thanks!
Text Display Linking In Multiple VB Forms
How do you link a text file in a richtextbox control on form1 to another in a richtextbox control on form2, so that text displayed in form1 is linked to text displayed on form2, and scrolling is synchronized between both forms? For instance, if you had two different versions of the Bible loaded on form1 and form2 in parallel, how would a verse-to-verse link be established between these 2 versions (say, King James and American Revised Version) so that both scroll at the same time and cue on the same verse. I hope I made myself clear here.
I have no clue as to the VB programming mechanism that makes this possible.
Display Modes Affects Forms Designing Area???????????????Help Me
Hello Guys,
I am doing a project in vb. When windows display mode is 800 by 600, My form ( Designing area) looks for full screen. No Probs.
If we change display mode to 1024 by 768 it doesn't look so. Ie) it will not be for full screen.
Is there any way to set display modes through application?
Can we give that option in vb ?. (According to Dispaly modes can we change our designing area)
I hope I didn't confuse u.
If there is a way, Pls. Let me know Guys.
Thanx for any idea in Advance.
sangeetha
Display Modes Affects Forms Designing Area???????????????Help Me
Hello Guys,
I am doing a project in vb. When windows display mode is 800 by 600, My form ( Designing area) looks for full screen. No Probs.
If we change display mode to 1024 by 768 it doesn't look so. Ie) it will not be for full screen.
Is there any way to set display modes through application?
Can we give that option in vb ?. (According to Dispaly modes can we change our designing area)
I hope I didn't confuse u.
If there is a way, Pls. Let me know Guys.
Thanx for any idea in Advance.
sangeetha
"Including" Forms/labels
I want to "include" a form or label within another form. I use the term include from ASP when you include one file within another.
What i want to do is have a label that displays the date on all of my forms. But i don't want to have to make 50 different date labels. I want to just make one and include it in all my forms.
Does anyone know how to do this inVB?
thanks,
b
How To View Receive Data From Serial Port And Display It In Forms
Dear friends,
how can i recieve data from a an data acquistion system
or A/D card connected to the serial port and display it on the text
boxes present in form.if any body could suggest me details about it i
would be grateful.
I am just invovled in a Pc based interface application and i have to
display the datas which i collect using visual basic code.so for that
i have to know how i can view the datas in form.
i know mscomm is used for this,but i dont get the exact understanding
how it works.how dats are received.please help me out.
thank you
regards
karthik
--
'Paint' Labels And Make Labels At RunTime
I'm making a tile color change simulator program that changes the color of a tile based on the color of its cardinal neighbors (It looks Awesome). However, It uses a 64 x 64 Array of Label Boxes. (On a side note I wrote a sub program that edited the source code for me so I didn't have to change / create 24576 values or about 98304 digits - at 40 WPM that would take about 5 1/2 hours non-stop Typing plus 20,000 Mouse Clicks; the app only takes about 20s to generate the code). This Brings me to two questions:
1.)Is it possible to create label boxes or other controls dynamically at run-time and even delete unneeded ones? Or is fixed upon compiling?
2.)Clicking 4096 labels can be very cumbersome. How would I implement a click and drag mechanism such as paint, or this program/applet: http://www.bitstorm.org/gameoflife/ (I actually discovered this app the other day, about 6 mos. after I initially started this program. My program was inspired by a pop-sci article, and uses a completely different algorithim written from scratch.)
If anybody would really like to see my prog, I posted it (compiled because source is 21x the compiled size. Although a faster PC is prefered (it takes my 2.2GHz around 0.078s per cycle), the slower the PC, the longer each cycle will take to process; However, it should work on any windows 9.x or higher.
Display Names Of Forms And Reports Of Access In Alphabetized Order In A List Box Using Vb
hi
can some1 pls help
i am displaying names of forms and reports from the access database in the list box. the code to display names of forms n reports that i am using is as given below:
For Each obj In dbs.AllForms
If obj.IsLoaded = False Then
List1.AddItem (obj.Name & " form")
End If
Next obj
For Each obj In dbs.AllReports
If obj.IsLoaded = False Then
List1.AddItem (obj.Name & " report")
End If
Next obj
the above code displays the names of forms and reports of the access database in the list box. i want to display the names in alphabetized order and names of forms must be displayed first and then reports using vb
can some1 pls help
thanks in advance
Correctly Closing And Openning Forms To Display Updated Information From The Database
Hi everyone. My program has a listbox which lists the titles of all records in the database. When a title is selected from the list box, and the "Modify" button is click, a new window will pop up displaying the contents of the record. it allows users to edit the record and update it. this works correctly the first time. when i close (ModifyFormWin.visible = false) the "modify" window and go back to the main form of the program, if i select another entry from the listbox and press modify, the window will pop up again but will display the contents of the previous entry (or the first entry you selected to modify).
i know that its probably because the "modify" form was not actually unloaded when it was closed, so when its opened again, it displays the previous info.. i tried to unload the form with "unload me" but it didn't realli work... does anyone know how to close it and open it again so it will run through the "Form_load" module everytime it is openned? any suggestions on how to open the "modify" window and closing it will be greatly appreciated... thankyou.
this is my form_load module for the "modify" entry form.
Code:
Private Sub Form_Load()
AppPath = App.Path 'Transfer the Application path to the string
If Right(Trim(AppPath), 1) <> "" Then 'Checking for back slash
AppPath = AppPath & "" 'If not add a back slash
End If
'Assuming the name of the database you created is FirstDatabase.mdb
AppPath = AppPath & "database.mdb" 'Set the database full path
'Set the connection string for the database
dbResources.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath
Dim TitleText As String
TitleText = main.Title.Text
'SQL query assuming there is a Table names Address
strSQL = "select * from Resources where (Title LIKE '%" & TitleText & "%')"
'Re-Set the Recordset variable
Set RsShow = New ADODB.Recordset
'Populate the Recordset with the above Query
RsShow.Open strSQL, dbResources, adOpenKeyset, adLockOptimistic
'Display text
ModifyText1.Text = RsShow(1)
ModifyText2.Text = RsShow(3)
ModifyText3.Text = RsShow(2)
ModifyText4.Text = RsShow(4)
RsShow.Close 'Close the Recordset
Set RsShow = Nothing 'Clear the recordset from memory
End Sub
Display Names Of Forms And Reports Of Access In Alphabetized Form In Listbox Using Vb
hi
can some1 pls help
i am displaying names of forms and reports from the access database in the list box. the code to display names of forms n reports that i am using is as given below:
For Each obj In dbs.AllForms
If obj.IsLoaded = False Then
List1.AddItem (obj.Name & " form")
End If
Next obj
For Each obj In dbs.AllReports
If obj.IsLoaded = False Then
List1.AddItem (obj.Name & " report")
End If
Next obj
the above code displays the names of forms and reports of the access database in the list box. i want to display the names in alphabetized order and names of forms must be displayed first and then reports using vb
can some1 pls help
thanks in advance
Transparent Forms + Transparent Labels?
I got my form to be transparent with:
VB Code:
Public Sub MakeTransparent(TransForm As Form)Dim ErrorTest As Double On Error Resume Next Dim Regn As Long Dim TmpRegn As Long Dim TmpControl As Control Dim LinePoints(4) As POINTAPI 'Since the apis work with pixels, change the scalemode 'To pixels TransForm.ScaleMode = 3 If TransForm.BorderStyle <> 0 Then MsgBox "Change the borderstyle to 0!", vbCritical, "ACK!": End 'makes everything invisible Regn = CreateRectRgn(0, 0, 0, 0) 'A loop to check every control in the form For Each TmpControl In TransForm If TypeOf TmpControl Is Line Then If Abs((TmpControl.Y1 - TmpControl.Y2) / (TmpControl.X1 - TmpControl.X2)) > 1 Then 'If it's more verticle than horizontal then 'Set the points LinePoints(0).X = TmpControl.X1 - 1 LinePoints(0).Y = TmpControl.Y1 LinePoints(1).X = TmpControl.X2 - 1 LinePoints(1).Y = TmpControl.Y2 LinePoints(2).X = TmpControl.X2 + 1 LinePoints(2).Y = TmpControl.Y2 LinePoints(3).X = TmpControl.X1 + 1 LinePoints(3).Y = TmpControl.Y1 Else 'If it's more horizontal than verticle then 'Set the points LinePoints(0).X = TmpControl.X1 LinePoints(0).Y = TmpControl.Y1 - 1 LinePoints(1).X = TmpControl.X2 LinePoints(1).Y = TmpControl.Y2 - 1 LinePoints(2).X = TmpControl.X2 LinePoints(2).Y = TmpControl.Y2 + 1 LinePoints(3).X = TmpControl.X1 LinePoints(3).Y = TmpControl.Y1 + 1 End If 'Creates the new polygon with the points TmpRegn = CreatePolygonRgn(LinePoints(0), 4, 1) 'If the control is a shape... ElseIf TypeOf TmpControl Is Shape Then If TmpControl.Shape = 0 Then 'It's a rectangle TmpRegn = CreateRectRgn(TmpControl.left, TmpControl.top, TmpControl.left + TmpControl.Width, TmpControl.top + TmpControl.Height) ElseIf TmpControl.Shape = 1 Then 'It's a square If TmpControl.Width < TmpControl.Height Then TmpRegn = CreateRectRgn(TmpControl.left, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2, TmpControl.left + TmpControl.Width, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + TmpControl.Width) Else TmpRegn = CreateRectRgn(TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2, TmpControl.top, TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + TmpControl.Height, TmpControl.top + TmpControl.Height) End If ElseIf TmpControl.Shape = 2 Then 'It's an oval TmpRegn = CreateEllipticRgn(TmpControl.left, TmpControl.top, TmpControl.left + TmpControl.Width + 0.5, TmpControl.top + TmpControl.Height + 0.5) ElseIf TmpControl.Shape = 3 Then 'It's a circle If TmpControl.Width < TmpControl.Height Then TmpRegn = CreateEllipticRgn(TmpControl.left, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2, TmpControl.left + TmpControl.Width + 0.5, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + TmpControl.Width + 0.5) Else TmpRegn = CreateEllipticRgn(TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2, TmpControl.top, TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + TmpControl.Height + 0.5, TmpControl.top + TmpControl.Height + 0.5) End If ElseIf TmpControl.Shape = 4 Then 'It's a rounded rectangle If TmpControl.Width > TmpControl.Height Then TmpRegn = CreateRoundRectRgn(TmpControl.left, TmpControl.top, TmpControl.left + TmpControl.Width + 1, TmpControl.top + TmpControl.Height + 1, TmpControl.Height / 4, TmpControl.Height / 4) Else TmpRegn = CreateRoundRectRgn(TmpControl.left, TmpControl.top, TmpControl.left + TmpControl.Width + 1, TmpControl.top + TmpControl.Height + 1, TmpControl.Width / 4, TmpControl.Width / 4) End If ElseIf TmpControl.Shape = 5 Then 'It's a rounded square If TmpControl.Width > TmpControl.Height Then TmpRegn = CreateRoundRectRgn(TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2, TmpControl.top, TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + TmpControl.Height + 1, TmpControl.top + TmpControl.Height + 1, TmpControl.Height / 4, TmpControl.Height / 4) Else TmpRegn = CreateRoundRectRgn(TmpControl.left, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2, TmpControl.left + TmpControl.Width + 1, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + TmpControl.Width + 1, TmpControl.Width / 4, TmpControl.Width / 4) End If End If 'If the control is a shape with a transparent background If TmpControl.BackStyle = 0 Then 'Combines the regions in memory and makes a new one CombineRgn Regn, Regn, TmpRegn, RGN_XOR If TmpControl.Shape = 0 Then 'Rectangle TmpRegn = CreateRectRgn(TmpControl.left + 1, TmpControl.top + 1, TmpControl.left + TmpControl.Width - 1, TmpControl.top + TmpControl.Height - 1) ElseIf TmpControl.Shape = 1 Then 'Square If TmpControl.Width < TmpControl.Height Then TmpRegn = CreateRectRgn(TmpControl.left + 1, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + 1, TmpControl.left + TmpControl.Width - 1, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + TmpControl.Width - 1) Else TmpRegn = CreateRectRgn(TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + 1, TmpControl.top + 1, TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + TmpControl.Height - 1, TmpControl.top + TmpControl.Height - 1) End If ElseIf TmpControl.Shape = 2 Then 'Oval TmpRegn = CreateEllipticRgn(TmpControl.left + 1, TmpControl.top + 1, TmpControl.left + TmpControl.Width - 0.5, TmpControl.top + TmpControl.Height - 0.5) ElseIf TmpControl.Shape = 3 Then 'Circle If TmpControl.Width < TmpControl.Height Then TmpRegn = CreateEllipticRgn(TmpControl.left + 1, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + 1, TmpControl.left + TmpControl.Width - 0.5, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + TmpControl.Width - 0.5) Else TmpRegn = CreateEllipticRgn(TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + 1, TmpControl.top + 1, TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + TmpControl.Height - 0.5, TmpControl.top + TmpControl.Height - 0.5) End If ElseIf TmpControl.Shape = 4 Then 'Rounded rectangle If TmpControl.Width > TmpControl.Height Then TmpRegn = CreateRoundRectRgn(TmpControl.left + 1, TmpControl.top + 1, TmpControl.left + TmpControl.Width, TmpControl.top + TmpControl.Height, TmpControl.Height / 4, TmpControl.Height / 4) Else TmpRegn = CreateRoundRectRgn(TmpControl.left + 1, TmpControl.top + 1, TmpControl.left + TmpControl.Width, TmpControl.top + TmpControl.Height, TmpControl.Width / 4, TmpControl.Width / 4) End If ElseIf TmpControl.Shape = 5 Then 'Rounded square If TmpControl.Width > TmpControl.Height Then TmpRegn = CreateRoundRectRgn(TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + 1, TmpControl.top + 1, TmpControl.left + (TmpControl.Width - TmpControl.Height) / 2 + TmpControl.Height, TmpControl.top + TmpControl.Height, TmpControl.Height / 4, TmpControl.Height / 4) Else TmpRegn = CreateRoundRectRgn(TmpControl.left + 1, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + 1, TmpControl.left + TmpControl.Width, TmpControl.top + (TmpControl.Height - TmpControl.Width) / 2 + TmpControl.Width, TmpControl.Width / 4, TmpControl.Width / 4) End If End If End If Else TmpRegn = CreateRectRgn(TmpControl.left, TmpControl.top, TmpControl.left + TmpControl.Width, TmpControl.top + TmpControl.Height) End If 'Checks to make sure that the control has a width 'or else you'll get some weird results ErrorTest = 0 ErrorTest = TmpControl.Width If ErrorTest <> 0 Or TypeOf TmpControl Is Line Then CombineRgn Regn, Regn, TmpRegn, RGN_XOR End If Next TmpControl SetWindowRgn TransForm.hwnd, Regn, True End Sub
I tried to get my labels to be completely transparent as well by setting the backstyle=0. They take the color of the form.
So if I set my form BGcolor to red, the form will be transparent and the labels bgcolor will be red, even though the backstyle = 0 (transparent). What a shame. Anything wrong w/ my sub?
Labels {save Picturebox And Labels}
I have drawn a picture in a picture box and I have also created labels. When I save the picture (using SavePicture), only the graphics are saved to a bmp. How do i get the labels to be part of the bmp???
How To Display "variant Data" In Access Forms?
I have a basic Continuous Forms layout, where each line displays an "order". One column of the data shows the last time the order was modified, currently as a long date/time.
However what the user really wants is two different displays. If the line in question was modified today, they want to see the time only. If it was modified before today, they want to see the date only.
Any easy way to accomplish this?
GIF Vs Labels: How To Get Labels In Front Of Them!
I've been having trouble with GIF's. Any control that is able to use GIF files seems to cover labels. For example:
As you can see, it is hidden behind it. The reason I need it to be in front in a game I am working on, for example 'bullets' need to display how many/amount left in a nice little label. It worked with the picturebox, but since I am using animated GIF files it covers it, even if i try to bring in front.
Is there any way around this? Thanks!
P.S. I am using this control
Empty Database No Labels, Full Database I See Labels
So it's not a real problem but I would know why this is.
Ok, so i had a program where i use a database. When the database is empty i didn't see any label (only the yellow labels had data from the database). And when the database had Recodsets I see all labels what is the problem?
|
TRACKER
