|
I have some color settings that I want to obtain when one of my forms load from an ini file to which the values in the file were set using the Color.toString method -> Color [A=255, R=255, G=128, B=0] or Color [Maroon]. I know there is the ColorConverter class that would be able to translate the Maroon color after I extracted the color String, but is there an easy way to extract the color from the string containing the numeric values? Or is there a better way of outputting the color to the ini file instead of using the toString method?
Thanks for the help.
|
|
|
|
|
I'm Not sure if this is what your after...
Imports System.Drawing.Color
Imports System.Drawing.SystemColors
Dim colorTrans As ColorTranslator
Dim cRed As Color
Dim cBlue As Color
Dim cGreen As Color
Dim intRNo As Integer
Dim intGNo As Integer
Dim intBNo As Integer
cRed = colorTrans.FromWin32(RGB(intRNo, 255, 255))
cBlue = colorTrans.FromWin32(RGB(255, intGNo, 255))
cGreen = colorTrans.FromWin32(RGB(255, 255, intBNo))
|
|
|
|
|
Hi
I am using FSO (Microfoft File System Object dll) to move TIF image files from a network shared folder A to another network share B in vb6.
If I want to move a single file from A to B, does the number of images in either folder matter in terms of effects on speed?
I am experiencing an huge slug in speed if I increase the number of files in A, even if I want to move only a small fraction of the files in A to B.
My thinking is that FSO actually has to search for an image before moving it.
Is there a difference to FSO (or Windows 2000 file system) if folder A has 20,000 files compared to when folder A has 100 TIF files?
![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif) 1fm1fu
|
|
|
|
|
If your using the FSO Folder class, then yes, there is a huge difference in speed. This is because the Folder object is enumerating all the files in the folder to populate its Files collection.
If your using the FSO.CopyFile method, no there shouldn't be a huge difference in speed, but there will be a difference. Unless you have those 20,000 files sitting on a FAT volume...please say it isn't so!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I was wondering if anyone knew how to make a link to a file in your directory from inside a textbox. What i have is a list of files that the user selects placed inside a textbox. I would like to make it possible to link to each of those files but am unsure how to do it. any help? thanks in advance!!!
megadith
|
|
|
|
|
What do you mean by "link"? Put a shortcut on the desktop, or open the file, or what? You'll have to be more specific as to what your refering to.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
sorry for being so vague. What I am doing is listing user selected files with their paths inside a textbox. I would like to make a link from these files so when you click on them you open them up. They are pdf files. Would a richTextBox work or a listBox? thanks for your help!!
Megadith
|
|
|
|
|
ListView would be the way to go. Each line is click-able and double-click-able, so you able to handle each of these events on a line-by-line basis. All your doing is adding the path (a String) to the ListView's Items collection. When the user clicks, or double-clicks, on a line, your code can use the Process classes to start the .PDF file that was clicked on.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Try to find any document about RichTextBox control. You might be able to do it as what you want.
Roath Kanel
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Are you sure you want to use a textbox??? try a listbox. It´s waaaaay more efficient for such a task as the one you describe, because you can use the _DblClick() event:
------- 8< code 8< -------------------------------
Private Sub List1_DblClick()
Shell List1.List(List1.ListIndex), vbNormalFocus
End Sub
------- 8< code 8< -------------------------------
Hope that helps.
Pablo.Ar
|
|
|
|
|
so when i use this listbox, can i have each line in the box goto a different file? each line in my box is path to a pdf file. i would to have them open each specific file when they are clicked on. thanks
megadith
|
|
|
|
|
so when i use this listbox, can i have each line in the box goto a different file?
Exactly. Each line of the 'list' would show something like:
1----------------1/\
1c-standards.pdf 1*1
1vb_reference.pdf1 1
1my_book1.pdf 1 1
1etc.pdf 1 1
1-----------------\/
And when you 'Dbl_Click()' on any item (...with the code I showed you) you´ll exec every file to launch the default pdf reader and show it to the user. neat 
Pablo.Ar
PS:any other doubts?
|
|
|
|
|
Is there an easy way to clear multiple controls?
Fore example; I have 20 textBoxes, 10 radioButtons and 5 checkBoxes in a form. Is there a single command that will set ALL:
textbox.text = ""<br />
radioButton.checked = False<br />
checkbox.checked = False
Thanks
Brad
|
|
|
|
|
No, there isn't. You'll have to create a function that enumerates and clears them, one by one.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I think you could use control array to do that, for example:
dim i as integer
dim j as integer
dim k as integer
for i=0 to 19
txt(i).text=""
next
for j=0 to 9
rdb(j).checked=false
next
for k=0 to 4
chk(k).checked = false
next
Roath Kanel
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
There are no control arrays in VB.NET like there were in VB6. You have to enumerate the form's Controls collection to get at them.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Anybody know how to add icons to listview columnheaders? I tried and I did not know how.
|
|
|
|
|
Ok, this is a pretty complex and long one...
*) First of all you need to add an 'ImageList' control to your project, and insert the images that are going to be icons on the listview.
*) After you´re done with that, go to the listview´s property page and go to the 'Image Lists' tab. Set the appropiate 'ImageLists' to each option.
*) On the code:
Listview1.ListItems.Add , , "Hello!", <image_index_corresponding_to_the_imagelist_of_big_icons>,<image_index_corresponding_to_the_imagelist_of_small_incons>
*) Columnheaders: At the listview´s property page, in the 'Column Headers' tab, you have a textbox to set the 'Icon Index', wich also corresponds to the index of the image in the actual imagelist.
Was this clear enough?
Pablo.Ar
|
|
|
|
|
Hey
I know this has gotta be simple
PrintDocument1.PrinterSettings.PrintToFile = True
PrintDocument1.Print()
I want to either set the file to have it print to, or get the file name that was typed in.
Thanks in advance
|
|
|
|
|
All your doing by setting .PrintToFIle to Ture is enabling the little check box on the dialog that allows the user to select printing to a file. The only way your going to be able to get a filename to print to is to build a dialog yourself or use a SaveDialog. Then you'll have to handle outputting the text to the file. You can't "print" to the filename you get.
Unfortunately, the Print To File functionality doesn't work. I'm hoping it'll be fixed in the next service pack for the .NET Framework, if not in .NET 2.0.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi
i want to know how to display a computer IP
there is a thread that mention this before and i have try the coding posted
im not sure what i did wrong but i cant display anything
im using VB6 and VB.net so either code will be fine for me
thank you in advance
Gary
|
|
|
|
|
You'll have to use WMI and the System.Management namespace to get the all the IP addresses that all the NIC in the machine are using. I can't give you any sample code right now because I just don't have the time.
What was the link to the previous article with the code that you are using?
If you post code, make sure you put it between <pre> and </pre> tags. Also, make sure that you check the little box at the bottom of the message post window that says "Do not treat <'s as HTML tags."
<i><b>RageInTheMachine9532</b></i><font size="-1">
"<i>...a pungent, ghastly, stinky piece of cheese!</i>" <b>-- The Roaming Gnome</b></font>
|
|
|
|
|
Hello,
I have win2k SP4 and I need to use some com server from VC++ and VBA6. In C++ I can use sequence like this to get pointer on interface Intrfc1 from ISrvr object:
ISrvr* pSrvr = NULL;
IIntrfc1* pIntrfc1 = NULL;
::CoCreateInstance(CLSID_Srvr, NULL, CLSCTX_ALL, IID_ISrvr, (void **)&pSrvr);
pSrvr->QueryInterface(IID_ IIntrfc1, (void**)& pIntrfc1);
In VBA 6.3 (Excel) I can go to the menu tools->References, include library in to the VBA project and create the instance:
Dim Srvr As ISrvr
Set Awg = CreateObject("LIBNAME.ISrvr")
How to get Intrfc1 object from Srvr? It should be some analog of QueryInterface in VBA. Unfortunately VB6 sequence
Dim Intrfc As IIntrfc1
Set Intrfc = Srv.Object
doesn’t work in VBA6.3. What do I need to do in VBA6.3?
Thanks for help
Leon
|
|
|
|
|
Hi,
I have a byte array of data that I store in to a Queue for processing reasons. But for some strange reason half of the data I put in the Queue (exactly the last half, actually, everytime!) dequeue as nulls (0x00). The sample output below shows the problem I'm having. The first two lines are a hex dump of my "input" byte array. The next line, "CreateQueue() done" tells me that the Queue was create and has the same size as the byte array (as it should). But in my double check you can see how the last 16 bytes are all null. Anybody know what's going on? Thx, Matt
-----------------------------------------------------------------
0000: ad 00 14 00 04 02 00 00 0a 4f 70 65 6e 53 65 72
0010: 76 65 72 05 00 00 00 fd 00 00 00 00 00 00 00 00
CreateQueue() done. matt=32, queue count=32
double check:
0000: ad 00 14 00 04 02 00 00 0a 4f 70 65 6e 53 65 72
0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Here's the code that populates the Queue from the byte array:
foreach(byte b in Pdu.Payload)
{
m_qPayload.Enqueue((byte)b);
}
|
|
|
|
|
Hi,
I have some Problem Accessing dynamically created controls in VB.Net. Actually what I have to do is
I have to get different set of questiond based on the order type.
For example , OrderType A may have 5 questions . It can be a short text, Long Text or a multiple choice question and
OrderType B may have 3 questions of different Type.
I have to create different control(textbox, multi line textbox, radioButton) based on the que type.
I am adding all the controls to a table and the table to a placeholder.
I don't have any problem creating the questions and controls dynamically.
But the problem bubble up when i try to access the dynamically created control.
I am creating the control in the Page_Init
and I am trying to get the response from those dynamically created control once the user click on the submit button.
Here is the code:
PrivateSub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Init
Dim mytable AsNew Table
Dim que As DataTable
Dim qrow As DataRow
Dim row AsInteger
IfNot IsPostBack Then
Dim myorderid = CInt(1)
Dim myaccount As DNS.OrdersDB = New DNS.OrdersDB
myserviceid = myaccount.GetServiceType(myorderid)
que = New DataTable
que = DNS.QADB.GetQuestions(myserviceid).Tables(0)
row = CInt(que.Rows.Count)
Dim i AsInteger
For i = 0 To row - 1
qrow = que.Rows(i)
Dim mytype AsString = qrow("QueType")
Dim myreq AsString = qrow("QueRequired")
If mytype = "SHORT TEXT" Then
Dim myrow AsNew TableRow
Dim myrow1 AsNew TableRow
Dim mycell AsNew TableCell
Dim mycell1 AsNew TableCell
Dim lbl As Label = New Label
lbl.Text = qrow("QueName")
Dim mylblid AsString = "lbl" + CStr(qrow("Queid"))
lbl.ID = mylblid
Dim txt As TextBox = New TextBox
txt.ID = qrow("Queid").ToString()
txt.Width = Unit.Pixel(Convert.ToInt32(200).ToString())
mycell.Controls.Add(lbl)
mycell1.Controls.Add(txt)
myrow.Cells.Add(mycell)
myrow1.Cells.Add(mycell1)
mytable.Rows.Add(myrow)
mytable.Rows.Add(myrow1)
ElseIf (mytype = "LONG TEXT") Then
' as added above
End If
Next
myplace.Controls.Add(mytable)
EndIf
EndSub
Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim mytable As New Table
Dim que As DataTable
Dim qrow As DataRow
Dim row As Integer
Dim myorderid = CInt(1)
Dim myaccount As DNS.OrdersDB = New DNS.OrdersDB
myserviceid = myaccount.GetServiceType(myorderid)
que = New DataTable
que = DNS.QADB.GetQuestions(myserviceid).Tables(0)
row = CInt(que.Rows.Count)
Dim i As Integer
For i = 0 To row - 1
qrow = que.Rows(i)
Dim mytype As String = qrow("QueType")
Dim myreq As String = qrow("QueRequired")
If mytype = "SHORT TEXT" Or mytype = "LONG TEXT" Then
' Trying to get the value of the textbox
Dim c As TextBox = Page.FindControl(qrow("QueId"))
Dim myresponse As String = c.Text
If myreq = "YES" And myresponse = "" Then
lblerr.Text = qrow("QueName")
lblerr.Visible = True
Else
Dim mysystem As DNS.QADB = New DNS.QADB
Dim mystsring As String = mysystem.addQAResponse(qrow("QueId"), myresponse)
End If
End If
Next
End Sub
It's really very urgent. Please someone help me with this. Any Help is greatly appreciated
Thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
