Visual Basic :: Splitter Controls- Maximising Multiple Controls Per Pane?

File Size And Multiple Controls In A Single OCX (like Common Controls)
I have been working on several controls that all draw with similar graphic methods, such as UseXPTheme, System, OfficeXP, Office2003, etc. DaVBMan reminded me that I can have several public controls in a single ocx like the Common Controls do. So far I have an autohide toolbar, custom button, custom frame with titlebar, scrollable container, and a system listbox. I also have a few more ideas for additional controls.

Here is what my concern/question is. For arguments sake, let's say the name of my main ocx is IDKControls. Then pretend that the size of the complete ocx is 1 meg. Somebody adds a reference to my ocx so all these controls show up in their vb toolbox. Then let's say the only control from the ocx they use is the custom button. When they build their setup for their program, is the entire size of the main ocx included in their compiled app, or just my control(s) that they use?

I guess my primary reason for asking is I'm trying to decide whether to set my controls up as stand-alone controls, or whether to go with the main ocx that contains all the controls. If I go with a single ocx I can move most of my graphic methods to a module that would be used by all the controls.

I have learned a lot in the past few months about drawing custom graphics, but when it comes to designing something like this I am still dealing with some very large holes in my knowldedge! Thanks

God Bless America

Pane Splitter Window
Hi,

Does anyone know how to create pane splitter for MDI in VB6, having 4 moveable,resizable child pane splitter in one MDI.

I know how to create pane splitter in vb6..But i dont know how to create pane splitter between MDI child forms.

please provide me to create pane splitter between Mdi child forms in vb6

Good Article On Creating A Pane Splitter With VB6
Here is a great article by Peter Aitken on creating a pane splitter in vb6.

Multiple Image Controls With Multiple Collisions At The Same Time
can anyone show me how to create multiple collisions function for image controls? i want every image collide with one another at the same time, i've tried using for-loops but the collision happens pair by pair it means that only two images can collide at one time ... please help meeee

What's The Best Way To Subclass Multiple Controls?
Well, I have two listviews on a form that I want to subclass and make owner drawn. I'm wondering what the best way to do this would be. Should I create new draw item events for each listview? Or is there a way to determine which listview is calling the drawitem sub?

I have access to the hwnd of the listview, but I can't seem to find a send message to get the control name or tag. If I could do that then I could use the same drawitem code for each, and depending on the name/tag I'd do one thing or the other. Or maybe not?

Thanks for any direction,
Sterg

Duplicating Multiple Controls On A New Tab
Well, I don't really know if this post belongs in the Game Programming Forum, but it somewhat relates to a game, so here it is. Please feel free to move this thread as seen fit.

I, while being a blatant novice to VB, have been trying to tackle a project that creates a server/client application for playings RIFTS® across a network. The concept being that the client app is a simple character sheet that logs into a server run by the GM, so the GM can view/modify data as needed. Each client that logs in and creates a new tab on the server's main window, so that each client has it's own 'page' of data. So far, so good. I'm not working on the winsock portion yet, so we don't have to worry about that, at the moment (thank god!). I can simulate a new client logging in, and can get each tab to display new controls, but I have to manually (in code) load each and every control, using control arrays and the load statement. Again, so far, so good. My problem stems from the fact that even the most basic of information needed to be created on each tabbed page represents over 200 separate controls (mostly labels and textboxes). I'm looking for a way to reduce the over 600 lines of currently needed code to create the needed controls, hopefully using a list of control names and a for/each or for/next loop. Please refer to the code snippet below, as a concept of what I'm referring to. The snippet tosses errors like a pitching machine on steroids, but I'm hoping it gets across the idea I'm looking to implement.

Code:
Private Sub btnAddTab_Click()
' Simulates a new client logging on
' Adds a new tab when a new client connects, adding new textboxes for
' each alterable attribute
Dim i, c As Integer, temp As String

TabStrip1.Tabs.Add
tCnt = TabStrip1.Tabs.Count
TabStrip1.Tabs(tCnt).Caption = "Tab #" & tCnt ' Testing purposes only, for now
' To be replaced by the Client's Character name at a later time
cnt = txtName.Count
TextBoxNameArray = Array("txtName", "txtAlign", "txtHP", "txtCHP", "txtSDC", "txtCSDC", _
"txtLvl", "txtEXP", "txtOCC", "txtIQ", "txtSkB", "txtME", "txtSVPI", "txtMA", _
"txtTrust", "txtPS", "txtDmgB", "txtPP", "txtStrPryDdg", "txtPE", "txtCmDthPs", _
"txtPB", "txtCharm", "txtSpd", "txtFPM", "txtPPE", "txtISP")
c = UBound(TextBoxNameArray)
For i = 0 To c
' The block below is where I'm having trouble
'------------------------------------------
temp = TextBoxNameArray(i)
Load frmServer.Controls(temp)(cnt)
TextBoxNameArray(i)(cnt).ZOrder 0
'------------------------------------------
Next
'Load txtName(cnt)
'txtName(cnt).Text = TabStrip1.Tabs(tCnt).Caption
'txtName(cnt).ZOrder 0
' Stop
End Sub

Now, obviously, this is a minimalist version of the actual code, but there's enough here to get the point across. I'm a lot more familiar with web coding than VB, so perhaps my notion is unworkable. If so, I'll just get past my basic laziness, and hard-code each control's loading by hand. but if there's a way to cut the coding by even half, it's well worth the attempt.

Ok, I've talked enough. Thanx for looking, and any suggestions are humbly and gratefully accepted.

P.S. In PHP, the idea would be simple to impliment, using the following:

PHP Code:

//Just the loop portion of the loop above, using the same array for the
//textbox names:
//pseudo-code: Ignore syntax discrepencies
For $i = 0 To $c {
    $temp = $TextBoxNameArray($i)
    Load frmServer.$$temp($cnt)
    $$temp(cnt).ZOrder 0
  Next $i

I hope this clarifies the intended action here.

Validation Across Multiple Controls
I have a form with all of its controls unbound. The first 2 controls are text boxes allowing data entry.

After data is entered into the first control it is validated by coding in a BeforeUpdate event which checks that its value matches an index key on a table. If validation then fails, the coding sets Cancel=True which causes the Update to be canceled and allows re-entry of the data. This works OK.

After data is entered into the second control it is validated by coding in a BeforeUpdate event which checks that its value matches an index key on another (i.e. second) table. If a match is made, then there is more coding to check that the value in the first control's value matches a field's value on the found record of the second table. If this validation fails, I want the value in the second control to be cleared & focus to shift back to the first control leaving its value intact but ready for update. However, on running the code the message "Runtime error 2108: You must save the field before you execute ..... the SetFocus method" appears. How do I get round this?

Hopefully the coding extracts shown below will make this concept a bit clearer:
rsTicket.Index = "Ticket"
rsTicket.Seek "=", Me!TicketNumber 'Second control

Coding to check match on second table (i.e. one with RecordSet rsTicket): works OK

If Me!CustomerNumber <> rsTicket!CustomerNumber Then
Response = MsgBox("Existing Ticket Number " & _
Me!TicketNumber & _
vbCrLf & _
"For Customer Number " & _
rsTicket!CustomerNumber, _
vbOKOnly)
Cancel = True
Me!TicketNumber = Null 'Clears second control
Me!CustomerNumber.SetFocus 'To first control
Exit Sub
End If

PS Thank you to the person who told me about vbCrLf.

Edit: Moved, because I think this Access

Changing MULTIPLE Controls At Once.
Is it possible to change a property value for EVERY instance of a control on a form?

i.e. A form has 5 frame controls on it.
when a certian event fires, set the .visible property
of EVERY frame to false, then change the .visible property of
a particular frame to true.

Multiple Winsock Controls?
OKay I am making a 4 player game and it will have a server and 3 clients. Here is what I want, could you tell me what best meets my needs?

1) I want any one of the 4 players to be able to run the server

2) When one person makes a move in the game it needs to send the update to the server, and then out to all players.

Everyone is getting the same program, it will ask you when you start up if you want to be the server or client. Should I use 3 winsock controls (one for each client from the server)?

Also, if the server and the clients will look pretty much alike but have a few differences, am I better off using one form for both client and server or should I make one for each? Using one form may get cluttered but using 2 forms may cause some repetitive code.

Lastly, when a client makes a request for a connection how do I assign it a proper connection and have the next request know where to go?

I appreciate any tips or resources to answer my questions, thanks.

DEDesigner Or Multiple ADO Controls?
Hi everyone ...
I am knee deep in the biggest project I have ever done. It is for a small home based business that has 2 people working. Their individual PC's are NOT networked, so I may need to install this seperatly on each PC then figure out later how to reconcile the 2 databases... gratefully, that comes much later.
I have several forms in the project. The main form is only a list of option buttons(20). It is used to display the appropriate form(s) based upon what task they are trying to do.
Many of the tasks are going to require database functionality. So, my question is this ...
Should I use the DEDesigner and make the basic connetion with that, then multiple commands to retrieve the data? Or would it be better to use multiple ADO controls? basically one on each form.
Also, one other question ....
Since the DBase and the project are both local on my machine .. how can i rectify the connection string(since it will be referencing the location and names on my machine, not their machines), when I deploy this?
Just FYI, I have VB6 enterprise edition SP5. and the DBase is built in Access 2000.
Thanks,
Michael

Multiple Ado Data Controls..
Option Explicit
Private blnStart As Boolean

Private Sub Form_Initialize()
blnStart = True
End Sub

Private Sub Form_load()
Dim CNN As New ADODB.Connection
blnStart = True

Set CNN = New ADODB.Connection
CNN.ConnectionString = "driver={SQL server}; " & _
"server=RACHEL; database=CUSTOMERS"
CNN.ConnectionTimeout = 30
CNN.Open

Dim strKey As String
strKey = txt1.Text

Adodc1.ConnectionString = CNN
Adodc1.CommandType = adCmdStoredProc
Adodc1.RecordSource = "Shownames;1(" & strKey & ")"
Adodc1.Refresh

Adodc2.ConnectionString = CNN
Adodc2.CommandType = adCmdStoredProc
Adodc2.RecordSource = "Showbankrelations;1(" & strKey & ")"
Adodc2.Refresh

Adodc3.ConnectionString = CNN
Adodc3.CommandType = adCmdStoredProc
Adodc3.RecordSource = "Showorders;1(" & strKey & ")"
Adodc3.Refresh

blnStart = False
Set CNN = Nothing
End Sub

Private Sub txt1_Change()
If txt1.Text = "" Then
txt1.Text = "0"
Else
End If
If Not blnStart Then
Adodc1.RecordSource = "Shownames;1(" & CInt(txt1.Text) & ")"
Adodc1.Refresh
Adodc2.RecordSource = "Showbankrelations;1(" & CInt(txt1.Text) & ")"
Adodc2.Refresh
Adodc3.RecordSource = "Showorders;1(" & CInt(txt1.Text) & ")"
Adodc3.Refresh
End If
End Sub

I have got a lot of Stored procedures which is connected to different Ado DataControls, every stored procedure is returning it’s own table information referring to the Mastertable “Customers”. For example I have written down 3 Ado data controls (in fact I have got about 10 Ado datacontrols).

Is there some other ways to write down this code shorter??
Also I cannot update any fields in the Datagrids because they are connected to stored procedures, what can I do for updating fields in the DataGrids?
Finally I cannot insert a new record to the Datagrid when I left one Textfield empty which has got another Datatype than Char.
(For example, sometimes I have got bankrelations without banknumber, such kind of relations I cannot insert to the table.

But the problem only occurs when I left one or more textfield(s) empty which Datatype is something else (like a Date or Integer) than a Char datatype. When I left textfields empty where the datatype is char, this problem doesn’t show up).

My tables are:

Customers ( CustomersID (Int), name(Char), address(Char),
phonenumber(Int))
Names (CustomersID (Int), contactingpersonnames(Char),
phonenumber(Int))
Bankrelations (CustomersID(Int), Bankname(Char), Place(Char),
Banknumber(Int))
Orders (CustomersID(Int), OrderID(Int), ProductsID(Int), productsname(Char), PricePiece(Int), Amount(Int))

Hope someone can help me with this.

Thanks in advance,

Rachel.

Moving Multiple Controls
I am looking for some help on moving controls by dragging.

Say I have three controls on a form. I'd like to be able to hold down the left mouse button on ANY one of them, and wherever I drag the controls (they would move with the mouse, not just a drag icon) and drop them, they would keep there relative positions from each other, just at a different place on the form.

As an example, take a flow charting app like Visio. With more than one shape selected, the user can drag the shapes anywhere in the working area. This is what I'm looking for.

Any help would be appreciated, even a shove in the right direction.

Thanks.

Imp

Multiple Winsock Controls???
Hi every1,

I would like to know if you can have multiple Winsock controls on one form I've tried it, and this is what I get:

First the code:

Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long)
If Winsock3.State <> sckClosed Then
Winsock3.GetData (rh)
Winsock2.RemoteHost = rh
End If
End Sub

The error I am getting is:

Compile Error:
Ambiguous name detected: Winsock3_DataAriveal

Does any1 know what I need to do?

Any help would be relished!!!
Squirrelly1

Multiple WinSock Controls??
I am creating a custom Messaging program (modeled after MSN Messenger) While coding the server-end of the package I am stuck, I am using WinSock, but is there a way to use multiple connections fairly simply (not a couple of hundred WinSock Controls)...

Multiple WinSock Controls
I am creating MSN Messenger-esque Chat Client/Server Package for internal communications, however, is there a simple way to manage multiple WinSock Connections without creating something like 400 Winsock Controls on my form? (the projected usage is somewhere around 300-375 clients connected to a server spanned across two servers).

Multiple Controls On A Single OCX
Hi everyone!

I'm new here but I just read great reasons why I should log on this forum.

Okay, here's my problem:

Talking about the ocx Windows Common Dialogs, when the program loads with this ocx, how much does it affect my pc's memo & resources? Though not sure of the practicality, I thought of "separating" these dialogs into separate OCXs so that I will only use minimum API calls (reducing resource consumption?), that is, use the dialog I only need to.

The thing is that the said control is a collection of API calls. And most authors would always point out resource precautions when using API functions. More API declarations would mean more resource reserve, or is it?

I hope my problem is indeed a problem.

Anyway, your responses will be highly appreciated.

Multiple Winsock Controls?
On my form I have two winsock controls (winsock1 & winsock2). For some reason, when I connect to winsock2 it also activates winsock1.

How is this possible?

Sending Data Through Multiple Controls
I have managed to allow multiple clients connect to one server:

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
End If
End Sub

I am trying to make it so that whenever data is received from any winsock control, it is sent out to all of the clients. It will only send to the last client (ie through the last winsock control loaded).

Private Sub AddChat(data As String)
Dim i As Integer
For i = 1 To intMax
On Error Resume Next
sckServer(i).SendData data
Next i
End Sub

intMax is an incremented variable, representing the number of winsock controls loaded during runtime.

Thus being, I can send text from any of the clients, and it appears on the server and the last client loaded. I can send text from the server, and it appears only on the server and the last client loaded. And, I can send text from the last client loaded, and it appears only on the server and the last client loaded. As soon as another client is connected, the others cannot display chat. Therefore, the most plausible explanation is that the data is not being sent to them. Is there some sort of state I should set the other winsock controls to? What's the problem here?

Is It Possible To Link Multiple DBList Controls?
Hi,

I am using VB 6.0 and DAO 3.51 and have 2 DBLists that have the same data control for a data source. I would like to be able to click on one list and have the other list move to the corresponding data in the other DBList. I also would like to initiate this from either list and not always have one slaved to the other.

Is this possible? I have searched quite a few sources and haven't been able to find much help.

Thanks in advance.

Abeluk

FindWindowEx - Multiple Controls With Same Class Name
I'm trying to send text to a text box within another application, with the class name "Edit." Normally, this wouldn't be a problem, but there are 3 other boxes with the same class name in the same hwnd. How can I access them individually?

Multiple Connections Creating Controls
i know this has been discussed a lot here, but for some reason i dont seem to understand. I have managed to make a simple chat program using one winsock control, and such. now i would like to expand this. I read that you can create new controls when needed, so i would assume once a connection is made, it would spawn another control so as to accept another connection, and i read that it is easiest with an array. i also realise that with multiple connections, it would probably be easiest to have one dedicated server software that all the clients connect to, and then delegate the connections or messages from there.

Resizing Multiple Controls On VB Form
I used various types of control to design user interface. My problem is screen resolutions (size). How do i make sure that my control will resize and remain intact even if the user changes screen size. Please help me. Say i have 10 Labels, 10 Textboxes, 1 MSFlexGrid, 2 PictureBox and more... How do i adjust all these controls to fit the screen.

Drag And Drop Multiple Controls
I have a bunch of image controls on a form. My app allows a user to select one or more image boxes and then drag them onto some other control at the top of the screen.

How do i get the drag icon for multiple controls to all drag at the same time?

Right now one controls get the drag icon, when it is dropped i just take a peek at what the user highlighted, the issue is that users want to see a drag icon for each image

Multiple Data Controls On One Form
Is it possible to have two (or more) Data controls on a form that have the same DatabaseName property value? I have a database with two tables in it. I'd like to use a Data control for each table on the same form at the same time.

I went through the quick and dirty method of using the Visual Data Manager to auto build a form for each table. They work fine separately. I then renamed one set of controls on one form, and cut/paste them with on the other form. After doing so, only one Data control and it's bound controls display data.

Changing Properties For Multiple Controls.
If I change a property (eg. Font.Size) of a load of textboxes and labels on a from I think I should use a For Each loop for each control in the Immediate window. Is this this the fastest way to do this, or is there a quicker altenative?

I know it’s not major, but I’d like to know!

Selecting Multiple Controls On The Form
i want to select multiple controls on my form at runtime. can u pls tell me how can i do this.same as we do at design time
thank you

Loading From File To Multiple Controls HELP !
im taking a VB .net class and im required to produce something similar to "the mechanics journal" at www.thehomejournal.com . anyways im not exactly sure how to code the program to when someone clicks an item in the list box , it displays that information stored in various and multiple controls. i hope this is clear. i need some help thanx!!

Getting Windowhandle Of Multiple Controls At A Time
i previously post this question with no answer

i m associated with the project which required to process more then one controls at the time.
and we r using SendMessage api for that process. the problem is that we can give window handle of only one control to this api and not all. there is one solution in VC++ i suppose but i didnt able to find the solution in VB.

VC++ coding will be like this one
CWnd myWnd;
myWnd.Attach(hWnd1);
myWnd.Attach(hWnd2);
myWnd.Attach(hWnd3);

....... what ever process we have to execute

myWnd.Detach();

can any one solve my problem or can give vb code on the above vc++ code???

thanx in advance.
firoz

Getting Windowhandle Of Multiple Controls At A Time
i m associated with the project which required to process more then one controls at the time.
and we r using SendMessage api for that process. the problem is that we can give window handle of only one control to this api and not all. there is one solution in VC++ i suppose but i didnt able to find the solution in VB.

VC++ coding will be like this one
CWnd myWnd;
myWnd.Attach(hWnd1);
myWnd.Attach(hWnd2);
myWnd.Attach(hWnd3);

....... what ever process we have to execute

myWnd.Detach();

can any one solve my problem or can give vb code on the above vc++ code???

thanx in advance.
firoz

Setting Properties For Multiple Controls
On an excel sheet I have about 100 checkboxes. Now I need to set the property LINKED CELL for each checkbox. Is there anyway I can do this using VBA?

Multiple Internet Transfer Controls
Can anyone tell me how to make multiple internet transfer controls (say 10 of them) simultaneously access different URLs on the same webserver? What ever I do, they all "lock" after a few of them start and refuse to do anything until I "unlock" them by accessing another webserver. Believe me, it's frustrating. I hope this is not a bug, 'cose I wouldn't like my app to be forced to wait until Microsoft figures it out.

Thanx.
-Mladen

Create Multiple Controls At Runtime
Hello,

How can I put multiple controls to a form at runtime?
For instance:

At runtime I want to put 2 textboxes, 1 combobox and 1 checkbox

Thanks

Multiple Winsock Controls At Runtime
I don't know if I can explain what I am after very well so here goes:

how do you make multiple winsock controls at run time? as in I think it is called control arrays or something for example you'd have winsock1(0) winsock1(1) winsock1(2) and so on until say about 50 or so that you can have more than one connection sort of thing?

and can someone give me a code to show how to connect and send data with multiple winsocks?

thanx

How To Share Controls Across Multiple Forms
I have a combo box in form1 and I want to access the items in it on form2. Now inorder to do that it would have to be declared with the shared modifier, how can you make it shared, I dont see a property to do that?
I changed the modifier property to public, but that still does not allow me to access the combo box from form2 because it is not shared.
I get an error saying:
Reference to a non-shared member requires an object reference.

whats the best solution here?

How To Select Multiple Controls At Run Time?
Hi

I am working in a form builder. i have my own controls , i a able to create a form and dragging controls to it . but i a unable to select multiple controls using ctrl or shifr key .I a using WindowProc () for each event at window... please friend help me

regards
kailash

Which Controls Do Not Have HWnd, Or How To Use Multiple On Error...
Hey everyone,

I got a question (well, two, but either answer can solve my problem)
1. How can I use more then 1 On Error Statement ?

2. Which controls do NOT have the hWnd property (as I am making a Resizer Add-In which uses the API to move the controls (fastest way), if that fails I use the Move method, if that fails set each property.

Please help, thank you

Search before you ask - if you don't know where to search, ask before you search

Selecting Multiple Controls Using API Calls
Hi all

i am working to build a FORMBUILDER i am using windows HOOks . i have my own user controls , i am able to create a new
form drag-drop cotrols . i am selecting controls by drawing rectangles ,using Form_Lbuttondown and form_mouseup events.

I want to select multiple controls using CTRL or SHIFT key with mouse events and getting the common properties for them.

Regards
kailash

ZOrder And Layer (putting Intrinsic Controls Above ActiveX Controls)
Hi, in VB, it seems that intrinisc controls cannot be above/in front of (in zorder) usercontrols.

Is there anyway around this?

- Alex

User Controls And Windows Installer --controls Aren't Getting Registered
Hi,

Can anybody give me the rundown on what I need to do toget my user control to install with my application. I have a moving graphic control that uses a slider [MS windows Common Conrols 2(6.0)].It runs just fine when I test-install on my development drive--Win2K Pro on my secondasry IDE..

Well, that's no big trick since VS 6 Enterprise is already installed, and my control was registered locally when I built it. The problem is that when I reboot to my testing drive--NTS4 on my primary IDE-- it finds a data type mismatch. At first, I was getting a message saying that MSCOMCT2.OCX was not properly registered, or that a component was missing. After I included the control in the components for my main project [where it is not used directly, only through my user control], I no longer got the error for that component. It still doesn't start up properly though. I'm wondering what I'm missing in my installer.

Another thing I'm wndering about--and I don't know if this is related--is the ADODC controls. I have had problems with the events for these controls. A week ago, when I tried switching from ADO 2.0 to ADO 2.5, the compiler didn't recognize the signatures for these events, and I had to switch back to get them to work. Now the situation is reversed. The compiler started objecting to ADODC events again, and I had to switch the reference to ADO 2.5 to get the program to compile. Could this be the source of the data type mismatch that NT4 sees?

Any suggestions for how I can get the installer to install dependably would help.

Thanks,

Joseph

Joseph

Simple Question - Change Multiple Controls
I'm sure this is a very simple thing that I SHOULD know the answer to, but...

What's wrong with this code?

Private Sub cmdemployment_Click()
For Each Control In frmvision
If Control.Type = Frame Then
Control.Visible = False
End If
Next Control
fraemploy.Visible = True
End Sub

I have a form with multiple frames and I want each command button to hide all the other forms and only show one.

Thanks!

Creating Multiple Copy Of Controls During Runtime
Hi,

I would like to ask on how to create a multiple copy of controls during runtime using visual basic 6.
Thanks in advance.

Maintaining Variable's Values Across Multiple Controls
OK, so when my user clicks my "Modify" button, a record is retrieved from our database, and if there is an "$H" string in row 13, column 40, then the value of SNAXCHECK (an Integer) should equal one.

The code looks like this:

SNA = CrtGet$(13,40,1)
If SNA = "$H" then SNAXCHECK = 1 else SNAXCHECK = 0

Later on during the program's execution, the user will click the "Modify Page 2" button, and it is only THEN that the value of SNAXCHECK should come into play. (It bears pointing out that by this point, the original data on the CRT has been replaced. Whether it was "$H" or not when it was retrieved, it is now "$W." That's part of what my program accomplishes. I point it out because I fear that once that field has been changed on the CRT, the value of SNA changes as well. Is there a way to make the value of SNA ABSOLUTE, for the remainder of the program, once it's initially retrieved by CrtGet?)

Within my Page 2 button_click script is this:

If SNAXCHECK = 1 then
label16.visible = 1
label17.visible = 1
label18.caption = SNAXID
label18.visible = 1
End if

But, it doesn't work. That is, even when SNA clearly equalled "$H" (I have a number of checks in place that confirm this), causing SNAXCHECK to equal 1, labels 16-18 do not become visible, and the value of SNAXID does NOT appear - even thought it appeared correctly when they clicked "Modify."

Is it the case that the integer value of SNAXCHECK only survives during the execution of the script for Modify_click?

Populate Controls From Module On Multiple Forms?
I have 2 forms and each form has 3 comboboxes that are named the same and will perform the same function. One has a list of names, one has locations and the other has categories. I set up a module a bit like this:

Code:
Sub Populate_Names()
Form1.cboNames.AddItem("Name 1")
Form1.cboNames.AddItem("Name 2")
Form1.cboNames.AddItem("Name 3")
Form1.cboNames.AddItem("Name 4")
Form1.cboNames.AddItem("Name 5")

This is ok for Form 1 but if I want to use the same sub on Form2 I would have to create another sub or another set of items (which means updating two sets of that code any time I want to add another name to the list).

Is there a way so the Sub would populate the controls depending on what Form it was called from? Someone did suggest:

Code:
With Form1
Populate_Names
End With

but I knew that would not work straight away. It would be good if there was something similar though?

VB6 - Crawling Speed When Selecting Multiple Controls
I'm experiencing a very strange problem with VB6 and I was wondering if anyone had any ideas. I have forms with multiple labels and if I click and drag to grab them all at once it goes very slow and selects each one in a one by one fashion and "redraws" them on my screen as each additional one is highlighted. Then if I go to move them as a group it does the same thing - for every space they move they get redrawn one by one. This never happened on my machine that used WinXP and this is a new machine running Vista. Is there maybe some kind of setting I have to turn off to stop this because its really annoying and time consuming. Thanks in advance for any help.

Removing Third Party Controls From Multiple Forms
Hi there,

I posted yesterday about a strange focus problem with a project I am working on. The problem eventually boiled down to being an issue with a very old (VB3 era) 3rd party control on the form.

I'm now looking into how much work would be required to ditch all the third party controls in the software, and upgrade them to modern equivalents (i.e. Frame controls, Radio buttons, etc etc). Sadly, the number of forms that could potentially contain 3rd party controls is big (~1000, in multiple projects).

To at least start me off on this (potentially very large!) job, I'm hoping to find a way so that if I supply a type of control (In this case, SSFrame, or whatever), that I could find out which forms contain these type of controls.

Any ideas? This would at least let me know roughly how many forms need to be changed...

Thanks very much,
Neil

Multiple Winsock Controls Accepting Connections
Hi, I've made a few web servers in the past, and all worked prefectly, minus one critical problem... whenever it would receive more than one connection at a time, it would cancel any current connections and begin the new one. I don't know why, I had 1025 winsock controls.

Now I am programming a new one that I am determined to get working perfectly, and I think I need some help with that problem. Here's the code I used to use to accept connections:

VB Code:
Private Sub ListenSock_ConnectionRequest(ByVal requestID As Long) For FindOpenSock = 0 to 1024 If Sock(FindOpenSock).State = sckClosed Then Sock(FindOpenSock).Accept requestID ListenSock.Close ListenSock.Listen Exit Sub End IfNext FindOpenSock End Sub

I mean it looks like it should be fine to me, but it always screws up. BIG THANKS IN ADVANCE!!!

-Mike