Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all 21005 articles
Browse latest View live
↧

[RESOLVED] SSTAB - How to add new tab in control

June 19, 2016, 4:13 am
$
0
0
Currently i have a sstab on form. Basically
i want to add new tab and dont know how to do it.

At tabControl properties i have options like this . There is no "Add new tab"

Name: Caasdapture.PNG Views: 25 Size: 9.2 KB
Attached Images
 
↧
Search

VB6 MDI App Upgrade

June 19, 2016, 6:42 am
$
0
0
Hi All! I have created a MDI CNC G code editor in VB6. It has many G code manipulation tools as well as graphical tool path and run time representation. I am using RichTextBox for the G code editing. This app has been working well for many years in Windows XP but has issues in Windows 7 and up, specifically with G code manipulation in the RichTextBox. General loading, editing and saving the contents of the RTB seams to work ok but when I load the RTB contents into a String variable, there seams to be issues with InStr() and Mid() misinterpretation. I was wondering if anyone else has seen this issue and if there is a fix or maybe a different approach. See example and thanks for any help!

Code:
myString  = frmMain.ActiveForm.rtb.Text

For i = 1 to Len(myString)
        If Mid(myString, i, 1) = "A" Then
            For j = i + 1 To InStr(i, myString, vbCrLf)
                If Mid(myString, j, 1) > Chr(57) Or _
                Mid(myString, j, 1) < Chr(45) Then
                    newString = Mid(myString, i, j - i)
                    i = j
                    Exit For
                End If
            Next j
        End If
Next i
↧
↧

where is my label!

June 19, 2016, 7:24 am
$
0
0
why i dont see my label in TAB1!!!!

In effect i dont see the label caption text in tab strip
Attached Files
↧

Run Time Error 713

June 19, 2016, 8:26 am
$
0
0
Hi

When i click on one form designer i gets the error "Run Time Error 713" . Class not registered .
XpButton

Thanks
↧

[RESOLVED] Flexgrid: How to autosize the height of MsFlexgrid

June 17, 2016, 2:34 pm
$
0
0
Hello,

I'm using a FlexGrid and I set the MSFlexGrid1.ColWidth(0) to
1200 twips using the following code :
Code:
Form1.MSFlexGrid1.ColWidth(0) = 1200
Form1.MSFlexGrid1.ColWidth(1) = 2900
Form1.MSFlexGrid1.FixedCols = 0'remove the gray "vertical fixed Col" on left side
Result: the given string ...

"a brown fox jum ps over the lazy bag" ...is cropped (see Sample 1).

-Now I want to autosize the col height, if the given string
exceeds the cellwidth of 1st col, or the given string
exceeds the cellwidth of 2nd col.

The Result should be as shown in Sample 2).

-How can I do this?
Name: MsFlexgrid_multiline.jpg Views: 60 Size: 31.0 KB
Attached Images
 
↧
↧

[RESOLVED] Run Time Error 713

June 19, 2016, 8:26 am
$
0
0
Hi

When i click on one form designer i gets the error "Run Time Error 713" . Class not registered .
XpButton

Thanks
↧

how do i open the outlook application and minimize it

June 19, 2016, 9:28 pm
$
0
0
hey,
is there a way to open outlook minimized?
couldn't find it on the web
tnx
salsa :)
↧

Width property cannot be set on this control

June 19, 2016, 10:21 pm
$
0
0
Hi

StatusBar.width = pctH.width + 15

pcth.width value = 21580
StatusBar.Width = 21600

Same error comes on this line. Left property cannot be set on this control.

StatusBar.Left = pctHelp.Left + 50

Thanks
↧
Search

call to DllRegisterServer failed

June 20, 2016, 1:01 am
$
0
0
Hi

The module flash10e.ocx was loaded but the call to DllRegisterServer failed with error code 0X80004005

Thanks
↧
↧

Data Type Mismatch

June 20, 2016, 5:28 am
$
0
0
Code:
ElseIf Opt3.Value = True Then
    Call connection(cnview, App.Path & "\Seeyou.mdb", "endromida")
    'Call connection(cnview, "\\SEEYOU-PC\shared\Seeyou.mdb", "endromida")
    Call Recordset(rsview, cnview, "SELECT * FROM RTshirts where Edate between '" & txtEdate1.Text & "' and '" & txtEdate2.Text & "' order by Pdcode asc")
     
    If rsview.RecordCount = 0 Then
        MsgBox "No Record Found On Query.", vbCritical, "Seeyou"
       
    Else
        Set Ready.DataSource = rsview
        Ready.Orientation = rptOrientLandscape
        Ready.Show
    End If
Name: error.jpg Views: 34 Size: 23.9 KB
Attached Images
 
↧

File - Saving

June 20, 2016, 12:47 pm
$
0
0
Hi everyone and thank you for reading.

I'm starting in VB and I've to create a program to help a user to put information (with a Form) in two fields and then save them on a file (it can exist or not).

My problem is that when I save the info, it's always on the same line and column, like this:

Name: Excel.jpg Views: 15 Size: 12.9 KB

What I want is:

Column A: Name1, Name2, Name3
Column B: 45, 31, 32

Code:

Code:
Sub Save()

10 Rem Save RANDOM
20 Open "C:\CCA\Final\prueba.xls" For Random As #1 Len = 17
30 Put #1, , regi
40 Close #1
50 MsgBox "Grabado en archivo"



End Sub
Regi:

Code:
Public regi As camion


Type camion
tipo As String * 14
peso As String * 2
End Type
Can you help me? It seems really easy but I can't make it work and I'm really upset about it.



Thanks
Attached Images
 
↧

[RESOLVED] add 24 hours to a time

June 20, 2016, 8:05 pm
$
0
0
this works for adding a week to a date
Dim newdate 'add a wreek
Dim mydate
mydate = gridMaster.textmatrix(mintgridMasterCurRow, 3)
newdate = DateAdd("ww", 1, mydate) add a week
gridMaster.textmatrix(mintgridMasterCurRow, 3) = newdate

i need to add 24 hours to a time, how ?
the time is in this format 9:00 AM
↧

While Wend, Do Loop, for next???

June 20, 2016, 8:16 pm
$
0
0
hi guys,

i am trying to understand the difference between "While Wend", "Do loop" and "For Next" i did a google search but i don't really understand the difference. is there a way that it could be explained to me in lamens terms?
↧
↧

form picture stretch?

June 20, 2016, 9:32 pm
$
0
0
One can use a picture as a background on a form. Simple enough. But, is there an API or function to make the background picture resize with the form?
↧

[RESOLVED] vbKeyDecimal constant value vs. actual numeric keypad decimal point keycode value

June 21, 2016, 7:07 am
$
0
0
Hi all,

MSDN page at
https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx
lists numeric keypad decimal point as vbKeyDecimal 110 DECIMAL POINT(.) key,
but in W7 Pro with latest updates, the actual keypad decimal point keycode is 44.

I am certain that previously numeric keypad decimal point has given 110 as keycode value, but keycode 110 is also N+32 ie. small n character.

Is it so that previously there has been bug in numeric keypad decimal point keycode value, that now has been corrected - or i am missing something?

Faced this recently in our data entry app, where user where accidentally able to input small n character to numeric field. After quick look found this out.
↧
Search

Key combo to end program across multiple sequential forms

June 21, 2016, 7:52 am
$
0
0
Hi gang--I have a program that involves sequential presentation of 100+ forms, one after the other (don't ask, I know it's not optimal). I don't want the user to be able to terminate the sequence, but I want the administrator to be able to do so via some "hidden" key combination. No single form is displayed for the entire duration of the presentation. Is there any way to have a key combo work across all forms, or would I need to code a keydown (e.g.) event for each form? Thanks for any help.
↧

can't register an ActiveX control

June 21, 2016, 8:39 am
$
0
0
I have a VB6 project that uses a Graph control, and for the life of me I can't get the development machine to register GRAPH32.OCX. I've tried using regsvr32 and also browsing to the file from within VB and adding it as a component. That gives an error "The file GRAPH32.OCX was not registerable as an ActiveX component".

The OCX is off the VB install CD, and is dated 6/26/1998 11:22 PM. I have the same file from another PC with the same date and that one fails also.

Any ideas? It's a WinXP machine.

Thanks
↧
↧

OLE container to display an excel WS in an existing WB

June 21, 2016, 12:24 pm
$
0
0
Hello,

What I need to do is display data off an existing excel WB/WS to an OLE container ; my problem is that the container does not fit the active range of that sheet

Is there one line of code that can get me started?

The range I want to display is constant ; and I've fooled around with all the view modes of the container - even auto fit does not display the selection properly - will manual set the height at design time

More clarification - all I need is to reference a particular sheet # - my workbook has 28. I can get the syntax for the sourcedoc and sourceitem values

Thanks!
↧

I need help!

June 21, 2016, 1:43 pm
$
0
0
I support a form generation software that was programmed in VB6. I have been supporting this program for many years now. I am not a programmer myself, I am just the supporting technician for our customers. The programmers are long gone.

I have an issue with this program printing that is starting to escalate.
It has worked on all operating systems since Windows XP and has been plugging along ever since. I have had customers over the years have printing conflicts (program locks up when printing) with very individualized fixes (usually a non-essential process causing a conflict or just a mere reboot) but since Windows 7, 8 and now 10, the problem seems to be increasing and much harder to resolve. I have some customers that I cannot find a resolution for (mostly Win10 customers), and this never used to be the case. Is there some ActiveX control or firewall setting or something in that nature that I can try? My usual resolve is to take them through Details in Task Manager and end the process that we find to be conflicting. Lately I have run into just having Microsoft Edge running that can cause the issue, which is odd since up until now it has never been an actual program the user launches, just a background process.
I am including below, a list of exe's that have been known to cause the issue as of late (in Windows 10):

bcmdeviceandtaskservice.exe (a Dell security device?)
browser_broker.exe (Edge utility?)
vprot.exe (AVG search tool bar utility?)
skype.exe

Any idea what these processes are doing to cause the program to lock up when trying to print?
Is their a setting in Windows to by-pass this conflict and allow this old program to print?

Like I said, each customers resolve is specific to their system and the processes that they are running, but I am wondering is there some overall setting that can resolve what happens to be going on here? Maybe I have been taking the long way and just putting a band-aide on the problem and not going to the source of the real fix?

This may not be the correct forum and if so I apologize for taking your time, but I am grasping at straws here and thought what better place then to ask VB programmers?!

If you need additional information please let me know!
Thank you,
Therese
↧

I think Windows 10 has messed with my software

June 21, 2016, 3:44 pm
$
0
0
Hi,

I used to sell shareware, my venerable program was "The RPN Engineering Calculator" written in VB6. I still use it and today the font has changed, the first pix is from my Windows 7 computer, and the second is from the Windows 10 computer. I've used this calculator on my W10 machine a number of times, but it looks like their last update did something to the fonts.

Any ideas?

Name: 2016-06-21 15_35_05-RPN Engineering Calculator.png Views: 3 Size: 34.9 KB
Name: rpn calc.png Views: 3 Size: 14.8 KB
Attached Images
  
↧
Viewing all 21005 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>