|
Thank you first, but it seems doesn't work ...
I added
Microsoft.VisualBasic.SetAttr("C:\temp\", FileAttribute.Directory + FileAttribute.Hidden)
No error, but the directort still in normal, not hidden.
|
|
|
|
|
simply:
FileSystem.SetAttr("D:\aaa", FileAttribute.Hidden)
note that there is no \ at the end of a path
it should work
OmarMallat
|
|
|
|
|
I been trying to migrate a client-server system where the client app (many instances out in the field now) is written in VB6 and uses Winsock controls to communicate with a server app over TCP/IP connections. The old server app written in VB6 also using Winsock controls works fine, but as I migrate the server app to VB.NET and use .NET socket objects, the system intermittantly hangs. The server .NET app receives the data from the VB6 clients just fine, but when it sends back the responses (especially if it is a large, multi-packet response) it hangs -- as if the last packet never arrived, and the .NET socket closed before the receiving Winsock control had a chance to finish collecting data (through iterative DataArrived event handler calls). Anyone have any ideas on how to overcome this? (yes, eventually the client apps need migration to .NET also, but for now they remain in VB6)
|
|
|
|
|
Does anyone know how to make a textbox/richtextbox backcolor transparent? VB Code/demo would be appreciated.
thanks
amy
|
|
|
|
|
As far as I know, it is not possible. Here is an example of code you could use:
RichTextBox1.BackColor = Color.FromArgb(Convert.ToInt32("80FFFFFF", 16))
Where "80FFFFFF" is the color, in ARGB form, and A is the alpha component, meaning opacity. At runtime, the exception is thrown that RichTextBoxes do not support transparent backgrounds. Forms have an opacity option, which means that transparency is just not supported by these controls. Specially made controls that do support opacity may be the best option, such as this: Alpha Blend Text Box by Bob Bradley[^]
|
|
|
|
|
Hello Everyone:
I want to make a program that incorporates an explorer style user interface. The left hand side shows a tree structure of drives and folders. While the right hand side shows a list of the files inside a selected folder.
Inside VB 6 there is a simple routine called ShowFolderList. I have modified it a bit to show the attribute number for each folder the routine returns.
Here is the modified routine:
Sub ShowFolderList(strPath As String)
Dim fs, f, f1, fc, s
Dim Attr As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(strPath)
Set fc = f.SubFolders
For Each f1 In fc
Attr = GetAttr(strPath & f1.Name)
Debug.Print f1.Name & " Attr: " & CStr(Attr)
Next
End Sub
I’m sending in “C:\” as the path, because I want a list of all the folders on this hard drive. I’m also listing the Attribute number for each folder. Now here is the noggin scratchier. When I show a list of the folders I returned I see some attribute numbers that are not defined in the attributes constants in VB.
Here is the list I get from my laptop using the above routine:
Adv_Basics Attr: 16
Adv_Doc_Production Attr: 16
Backup_Exp Attr: 16
Config.Msi Attr: 22
Cosmetology Attr: 16
Documents and Settings Attr: 16
Program Files Attr: 17
RECYCLER Attr: 22
SHFileOperation Attr: 16
swsetup Attr: 16
System Volume Information Attr: 22
SYSTEM.SAV Attr: 16
TreeView_Test Attr: 16
WINDOWS Attr: 16
I’m interested in only the folders on the hard drive. So the folders with a 22 attribute need not be shown. But the Programs Files folder has an attribute number of 17, and 17 is not defined as a directory. A directory or folder attribute number is 16.
So my first question is: Why is the Program Files folder attribute a 17? And the second one is: How can I modify the routine to return only unhidden folders and non-system folders?
Thank you
Quecumber256
|
|
|
|
|
This is the combination of 2 or more attributes.
In your case, 17 is a combination of ReadOnly (1) and Directory (16). 22 is a combination of Directory (16), System (4), and Hidden (2). 16+4+2 = 22.
If you wanted to check for these attributes being turned set, all you have to do is a little binary math:
If ((attribValue & 4) > 0) Or ((attribValue & 2) > 0) Then
' At least one of the System (4) or Hidden (2) attributes are set
Else
...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
-- modified at 15:00 Wednesday 1st March, 2006
|
|
|
|
|
Dave,
Bare with me on this. I looked at the properties on the other folders, they are set to read-only, but their attribute numbers are 16. Why don't they show a 17 like the Program Files folder?
Your IF Statement will help when I list out the folder names.
Thank you,
Quecumber256
|
|
|
|
|
No idea. I've never seen the problem before and I can't verify it on the machine I'm using. Are you sure you're matching up the filename with the correct attribute number?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave,
With VB I'm not sure of anything. Did you try the little routine I sent in the first post? That is the one I'm using and as far as I can tell it is matching the correct attribute number to the correct folder name.
The list I sent of the file names are the results I'm getting running it on my laptop.
Thanks,
Quecumber256
|
|
|
|
|
OK. The list you posted is correct. Are you sure you're right-clicking the same folder name?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Quecumber256 wrote: they are set to read-only, but their attribute numbers are 16.
No, they are not set as read-only. What you see in the properties for the folder is not the read-only status for the folder, but something that is supposed to represent the read-only status of the files in the folder. (This doesn't work very well, though.)
There actually does not exist anything as a read-only attribute for a folder. A folder can not be read-only. Period. Windows uses that bit to flag that the folder is as a linked directory.
source[^]
So, for directories you can ignore the read-only bit. As long as you don't access the disk from a different operating system, it doesn't mean anything to you.
---
b { font-weight: normal; }
|
|
|
|
|
Hi,
I am working on windows application. I have a form1 and when I click on a button in form1, it shows form2. I perform some Db operations in that form and then close it. When I close the form, I want the form1 to get loaded again. Form2 is not an MDI form. How can I implement this?
Can anyone please help with this?
Thanks!!
|
|
|
|
|
projectcode1 wrote: I want the form1 to get loaded again.
Based on wht you described, it should still be there. What code did you do to instantiate and Show Form2? What code did you put in to make Form1 vanish?
Also, VB6, or VB.NET?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for your reply!!
It's in VB.Net. You are right the form is still there but I want to refresh the data in the datagrid and combobox in form1 after I made some changes to the Db using form2.
I can now load the form using call load() but the combobox or datagrid doesn't show the new value. The Db has the new value. Page is not getting repainted or refreshed!!
Any help will be appreciated.
Thanks.
|
|
|
|
|
projectcode1 wrote: I can now load the form using call load()
What??? Where did this come from?
If Form1 depends on changes being made to the database by Form2, Form2 should be shown as a dialog, where Form1 waits for Form2 to close, then continues on. Something like this:
Dim newForm As New Form2
newForm2.ShowDialog() ' This is a blocking call, so Form1 will wait for Form2 to close!
' Refresh database objects here...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
That seems right. Are you trying to perhaps close one form and open another??
Ty
|
|
|
|
|
HI Again,
thanks for your reply.
I did the same but how do i refresh the combox and datagrid in form1. The new value are not seen in the form1.
Thanks a lot!
|
|
|
|
|
How did you populate them in the first place? Same thing, only run it again after Form2 closes (returns from the ShowDialog call). This should NOT be done from Form2!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks!
I tried doing that from form2 but didn't work. Then I called it from form1 event where I called the form2.showdialog, I had to add the item in the combobox there.
Why not from form2 ???
|
|
|
|
|
Because Form2 doesn't, and shouldn't, know ANYTHING about the form that launched it. It's just bad practice.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
I am wanting to gather a run-down of the current local machine hardware setup, like the CPU, Graphics Card and Sound Card, I have searched for examples, but can't seem to find any for VB.NET preferably 2005, not VBScript.
Any help is greatly appreciated.
|
|
|
|
|
you can access wmi through the System.Management namespace. At least that's where it's at in 2k3. I'd imagine it's the same for 2k5 as well.
ManagementClass
ManagementScope
ManagementObjectCollection
ManagementObject
are some of the classes you'll need to work with.
how to add printers via wmi...
you'll need to register to see the article. sorry about that, when i was using this sample last week, registration wasn't necessary, but it's worth it as it's a pretty straightforward sample of how to utilize the management namespace.
here's a link to the wmi hardware classes reference on msdn.
hope this helps.
-jim
|
|
|
|
|
i want the code to save the file from file menu , close , print to open a file from file menu in VB.NET please help me
zabsmarty
|
|
|
|
|
I really don't mean to be bashing your skills, but it sounds like writing an entire IDE is beyond your abilities. Reading/Writing text files are very simple things to do and are usualy covered in the first computer class you ever take.
How about scaling this project back a bit to a simple text editor first, maybe something resembling Notepad?
Or am I just missing something???
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
