Type: Posts; User: georgekar
Search took 0.02 seconds.
New Version for the two examples..
some error founded in sliding option on selectors (an error that happen to come in a later version...that was a nightmare...
I put SelText SelLength...
Maybe MKaufman you need a glist control...
Look here http://www.vbforums.com/showthread.php?776741-Nice-Textboxes-version2-1-Plus-Varius-Selectors
The glist4 control have events for item drawing...
if (2*e2) >= (-dx) then
e2 =e2+ dy
y2 = y0
do while (e2 < ed*wd) and ((y1 <> y2) or (dx > dy))
' setPixelColor(x0,y2 , max(0,255*(abs(e2)/ed-wd+1))
' define a cc and a max...
You can use a listbox for menu. It is more modern I think...Just make something to open it.
So I through old replacestr (something i used in Vb5)
I post here a crop from a screen shot, when I have opened the redist.txt from C:\Program Files\Microsoft Visual Studio 1.33Mbyte (non unicode)....
A change in MyDoc for real fast reading of text (not in the zip files above)
Property Let textDoc(norawtext As String)
Dim where As Long
Dim a() As String
where = 1
I have made a listbox that can hold radio buttons, checkboxes, labels and buttons, not the ms controls but internal controls...so with one user control with only 3 shapes (no other control on the...
Why some functions are so difficult to find. I would like to have some controls without the restrictions for using...this or that themes..manifests or other bad habits..
So i wrote some textboxes....
I see before situations like this.
1) Why you make visible=false some controls in a form load event. You can do that in design time.
2) When you set property visible and the control...
So we speaking for handling the form status, and maybe that status in later weeks come bigger, with some more individual control states.
The better way it to use memo as field type, and feed it wit...
Check if you expect any arithmetic conversion from long to integer. I see that story in a program that runs ok on Xp and not on 7, and after I insert a lot of breakpoints, I found that in a numeric...
function alfa(byval a as variant, byval b as variant) as variant
if vartype(a)= 2 then
alfa=a & b
? alfa(2,4), alfa("sasd","adff")
Sometime I use optional parameters, and an optional parameter can redefine the use of the function. With this way is easy to lost what happen to that function, and you have to read it again. Isn't...
There is a flag Nofiles...When NoFiles if True then No Files are listed. (I put No in front a flag to remember that it works inverted, false to get what it says...so NoFiles = False means with...
I think using ParamArray we can have the same result like Polymorphism
I posted there for folders, but the class work for files too....
I like to see Greek words in a post such as pragmatically, but this is from word pragmatiko which means "a real thing". So in your case, the message above, you should wrote...
this is fault
If "SELECT * FROM CLIENT WHERE CLIENT_NAME = ('" & txt_Client.Text & "')" Then
because is like this
if a$ then
You have to place a numeric expression
This is my RecDir class, and there http://www.vbforums.com/showthread.php?774329-A-custom-compact-and-resizable-Open-File-Save-File-Folder-Select is an example of using it. Also there are three types...
I Think GetAttr(path & file) And vbDirectory) isn't good for a tree search... (as I found in the GetAFiles Example).
When I make File Selector I change the GetAttr with that:
Maybe is good for this utility to have the ownership of any file;
I found something from there http://www.7tutorials.com/add-or-remove-take-ownership-option-right-click-context-menu
This is the last example. I remove the form1 with command buttons and place a nice selector as a main window. Also a make a fake taskbar title, and I can show selectors as modal window that can...
At last I add Font and color selectors, so now the set is complete.
Color Selector has a new design, it is a list with 16 million elements (it is a virtual list...) as hex values and we can click...
For the last maybe it is a step motor and needs some pulses to have a round. But all the program shucks...because if anyone press the exit button then we loose the UI with a running timer.
Look code here http://www.vbforums.com/showthread.php?774329-A-custom-compact-and-resizable-Open-File-Save-File-Folder-Select
You can find a RecDir class that can be filled with type criteria but...
The latest version of file selector
I would like to make the color selector and the font selector same as this selector...so wait for some days...
I like as goto and the Schmidt way is very good, and not only for a next for situation but also with any kind of function that return a by reference variable. See that
I have a "tester" in codebank that take a line of VB code and embed code to colorize it, without storing each part but the last part before bound the colorize code. So It works like a filter. If you...
If some "data" are readings from a list of analysis then maybe some part aren't present, so some variables that get value from formulas can't get actually a value. What happen then? With a bit of...
I think the problem we face here has a different name that the name from title. Basic problem is the usage of the button. This button execute an external program so the display of graphic hold the...
If in a button click event add a set focus to other control then you have on that control the caret (the frame showing for focus). If that control has a left property a value of minus 40000 then...
There is an advance technique to have an object that is a running process with or without UI and you can read or set properties as that process running, without founding window but only later binding...
If variables have names as A1 or B12 or IK14 and also we have formula as value then we talk about a spreadsheet. But with any name variation we have a spreadsheet if in "cells" (variables) we have...
you can use Picture1.Line (x*ThatWidth, y*ThatHeight)-((x+1)*ThatWidth, (y+1)*ThatHeight), ThatColor, BF
(use autoredraw = true for the form and picturebox) so you can define how the color...
In a form put a shape as disc and 3 textboxes
Dim red As Long, green As Long, blue As Long
Private Sub Text1_Change()
red = Val("&h00" + Left$(Text1, 2))
There isn't a function to map an integer to floating point number. All the bits in a float are not usable,and the NaN is not a number but has a bit representation. Let's face the problem..We say that...
You have to see if screen mode is 24bit or more. If no then your colors reading from getpixel, the vb not the api, is wrong.
To get the hex value just look that hex$ convert a number to hex and...
In a Module
Declare Function GetPixel Lib "gdi32" (ByVal hDc As Long, ByVal x As Long, ByVal y As Long) As Long
Public dv15 As Long
' in a MAIN sub
Here ia a screen shot from Folder Selector, using in setup (you can open it from two white bars thar are shaking when you operate the list) the recusrve style (is a radio button) and Expand Width...
Click Here to Expand Forum to Full Width
Survey posted by VBForums.