|
I'm trying to import files with a strange format into a treeview. Here is a look at the file format:
EZ Keys Instant Phrase File
0.90c Beta Test
Words+ File
Conversation
.Control
..Please wait until I finish what I'm trying to say.
..Would you mind if I talk while you're interrupting?
..Excuse me. May I say something?
..Please let me finish.
..I have something to say about that.
.Agreement
..That's true
..I agree with that
..You're right about that
..Right on!
..I think that's correct
.Disagreement
..I don't agree with that
..No way!
..That's not true
..You're wrong about that
.Greetings
..New person
...Hello. How are you?
...I'm fine, thanks.
...I'm very pleased to meet you
...I'm doing well, thank you.
..Someone I know
...Hi. How have you been?
...What have you been up to?
...I'm fine, thanks.
...I'm doing well, thank you.
...Yo, bro. Whussup!
...What's happening?
...How have you been?
.Closings
..New person
...It's been a pleasure meeting you
...I hope to see you again
...I'm so glad I got to meet you
..Someone I know
...Goodbye!
...So long!
...See you later!
.Opinions
..What did you think about that?
..What did he or she think about that?
..You know what I think?
..I think that's OK.
..I think that's good.
..I don't think that's right.
..I think that's bad.
.Social
..Weekend
...Your weekend
....Did you have a good weekend?
....How was your weekend?
....What did you do on the weekend?
...My weekend
....I had a great weekend.
....I had a lousy weekend.
....I went somewhere special on the weekend.
...Next weekend
....What are you doing next weekend?
....I have plans for next weekend.
....I'm going somewhere special next weekend.
.Subject
..Let's change the subject.
..I don't want to talk about that right now.
..Please don't change the subject.
..It's a touch subject.
.Talk
..Openers
...I'd like to talk to you about something.
...Can we talk?
...I have something to say about that.
...We need to talk.
...I really need to talk with you.
.Questions about you
..Name, age, etc.
...What is your name?
...How old are you?
..Home, family
...Do you have any brothers and sisters?
...Where do you live?
..School
...What grade are you in?
...Where do you go to school?
...Who is your favorite teacher?
..Work
...Do you like that kind of work?
...How long have you been doing that?
...Where do you work?
Responses
.Absolutely not
.Certainly
.I'm sorry
.Not!
.No, thank you
.Thank you
.Thank you very much
.Yes, please
Exclamations
.Buzz off!
.Cowabunga, dude!
.Don't have a cow, man
.Get outa here!
.Good grief!
.Leave me alone!
Insults
.Integrity
..I wouldn't trust that person.
..What a slime!
..That person is not very honest.
.Intelligence
..If brains were gunpowder, you wouldn't have enough to blow your nose.
..If you had a brain, it would be like a BB in a boxcar.
.Looks
..I've seen prettier faces on alligators.
..Someone must have hit you with an ugly stick.
.Manners
..What a slob!
..I've seen pigs with better manners.
Interests
.Music
..I like to listen to music.
..I enjoy almost all kind of music.
.Sports
..General sports
...Do you like any kinds of sports?
...I like a lot of sports.
..Basketball
...Who is your favorite basketball team?
...Who is your favorite basketball player?
..Football
Knowing
.I'm not sure I want to know.
.Do I need to know that?
.How do you know that's true?
Likes and dislikes
.Likes
..Food
...Breads
....I like most kinds of bread.
....I like biscuits.
....I like good yeast rolls.
....I like toasted bagels.
...Candy
....I really like chocolate.
...I like pizza.
..Things
...I always liked that.
..People
...I like him.
...I like her.
...I like them.
...I always like him.
...I always like her.
...I always like them.
..Places
...I like that place.
...I always liked that place.
...I like to go there.
...I wish I could live there.
.Dislikes
..Food
...I don't like onions.
...I don't like mayonnaise.
..Things
...I never did like that.
..People
...I don't like him.
...I don't like her.
...I don't like them.
...I never liked him.
...I never liked her.
...I never liked them.
..Places
...I don't like that place.
...I never liked that place.
...I don't like to go there.
...I wouldn't want to live there.
This is
.This is fun!
.This is really boring.
.This is interesting.
.This is pretty bad.
.This is really bad.
.This is fantastic!
Here is the code I wrote:
<br />
Imports System.IO<br />
<br />
Public Class Import<br />
Public Function ImportEZK(ByVal Folder As String, ByRef Tree As TreeNodeCollection)<br />
Directory.SetCurrentDirectory(Folder)<br />
Dim Files As String()<br />
Files = Directory.GetFiles(Folder, "*.phr")<br />
<br />
For f As Byte = 0 To Files.GetUpperBound(0)<br />
Tree.Add(Files(f).Substring(Files(f).LastIndexOf("\") + 1, Files(f).Length _<br />
- Files(f).LastIndexOf("\") - 5))<br />
Dim Lines As ArrayList = FileProcessing.GetFile(Files(f))<br />
MakeTree(Tree(f), Lines.ToArray(GetType(String)), 3)<br />
Next<br />
End Function<br />
<br />
Private Sub MakeTree(ByRef MyTreeNode As TreeNode, ByVal Lines As String(), ByVal LineNum As Integer, _<br />
Optional ByVal Level As Integer = 0)<br />
If LineNum > Lines.GetUpperBound(0) Then Exit Sub<br />
Dim Cntr As Integer = 0<br />
Dim Line As String = Lines(LineNum)<br />
Dim c As Char = Line.Substring(Cntr, 1)<br />
Do While c = "."<br />
Cntr += 1<br />
c = Line.Substring(Cntr, 1)<br />
Loop<br />
Select Case Cntr<br />
Case Is < Level<br />
Dim NewNode As TreeNode = MyTreeNode, x As Integer<br />
For x = 1 To Level - Cntr<br />
NewNode = NewNode.Parent<br />
Next<br />
NewNode.Nodes.Add(Line.Substring(Cntr, Line.Length - Cntr))<br />
MakeTree(NewNode, Lines, LineNum + 1, Level - x)<br />
Case Level<br />
MyTreeNode.Nodes.Add(Line.Substring(Cntr, Line.Length - Cntr))<br />
MakeTree(MyTreeNode, Lines, LineNum + 1, Level)<br />
Case Level + 1<br />
MyTreeNode.Nodes(MyTreeNode.Nodes.Count - 1).Nodes.Add(Line.Substring(Cntr, Line.Length - Cntr))<br />
MakeTree(MyTreeNode.Nodes(MyTreeNode.Nodes.Count - 1), Lines, LineNum + 1, Level + 1)<br />
End Select<br />
End Sub<br />
End Class<br />
Two problems:
First, after it gets to the lower levels, it doesn't go back to the upper levels (Case Is < Level).
Second, it duplicates every file entry in reverse order, strange.
Like this:
CARS
FOOD
GENERAL
...
...
...
GENERAL
FOOD
CARS
I would appreciate any help.
Thanks!
|
|
|
|
|
I am getting the following compile error:
"value of type 'DataAccess.DataRequest' cannot be converted to 'DataAccess.DataRequest'"
This doesn't make any sense to me, as the types are exactly the same. Perhaps someone has some experience with this type of error. In this particular case I have 3 DLL's. A class in DLL #1 makes a call to another class in DLL #2 by passing as a parameter an object that comes from DLL #3 -- i.e. both DLL #1 & #2 reference DLL 3#.
IHere's some sample code that reproduces my problem. There is a Windows Form Project, a BusinessLayer DLL, a DataLayer DLL, and a MyObject DLL. The windows form references the BusinessLayer DLL and the BusinessLayer DLL references the DataLayer DLL. All of three reference the MyObject DLL. THis gives me the same compile error of not being able to convert the type -- it will however compile and run OK if I tell the compiler to continue. It doesn't seem to make any difference whether I have Option Strict on or off, or if I pass the parameter by Ref or Val.
Public Class Form1
Inherits System.Windows.Forms.Form
Dim oMyObject As New MyObject.MyObjectClass
#Region " Windows Form Designer generated code "
‘this is a simple windows form with a textbox “TextBox1” and a button “Button1”
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = oMyObject.Name
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oBusinessLayerObject As New BusinessLayer.BusinessLayerObject
oBusinessLayerObject.AlterObject(oMyObject)
TextBox1.Text = oMyObject.Name
End Sub
End Class
Namespace BusinessLayer
Public Class BusinessLayerObject
Public Sub AlterObject(ByVal oMyOBject As MyObject.MyObjectClass)
Dim oDataLayerObject As New DataLayer.DataLayerObject
Dim oMyObjectBL As New MyObject.MyObjectClass
oMyObjectBL = oMyOBject
oDataLayerObject.AlterObject(oMyObjectBL)
End Sub
End Class
End Namespace
Namespace DataLayer
Public Class DataLayerObject
Public Sub AlterObject(ByVal MyObject As MyObject.MyObjectClass)
MyObject.Name = MyObject.Name & " DataLayer Addition. "
End Sub
End Class
End Namespace
Namespace MyObject
Public Class MyObjectClass
Public Name As String = "Some Name"
End Class
End Namespace
Mark
|
|
|
|
|
I am working on the ftp client type application.
while uploading I can't not stop until finishing
downloading all files. Even I make a button to
stop I won't response until finish whatever my
program is doing what can I do?
shinay
|
|
|
|
|
You description is difficult to understand, but I think your trying to terminate your file upload/download before it completes on it own?
How that is done depends entirely on your implementation of the client transfer process. Without knowing anything about your code, it's impossible to tell you what to do...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I wonder how i can enable the frontpage extension for a domain name on IIS by coding.
I can't find any help from google about this.
I appreciate if you can help.
Thanks.
|
|
|
|
|
There are several methods for administering IIS using code. The documentation on such methods starts here[^].
For a jump start, you can try using the System.Management namespace and WMI. Check this[^] article on MSDN. You'll have to covert the code from VBScript to VB.NET though.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm hesitating on changing Platform from VS6 to VS.Net. Would you
please to tell me what's the prospect of MMC in Microsoft .NET plan?
There's an MMC Snap-in designer for VB 6.0 ,and is there a designer for
VB.NET? Does Microsoft have anything to substitute for MMC in .NET
platform or something in the future?
|
|
|
|
|
Without more specifics on what you're using MMC for, it would be hard for me to provide you with anything more than general items I've come across.
There's a Console class in the System namespace.
I found a C# library for MMC on SourceForge
https://sourceforge.net/projects/mmclibrary/
There are some resources on this site:
http://codeproject.com/csharp/MMCFileActCs.asp
http://www.codeguru.com/Cpp/W-P/system/mmcsnapins/article.php/c5779/
The Microsoft .NET Framework SDK tools are designed to make it easier for you to create, deploy, and manage applications and components that target the .NET Framework. This section contains detailed information about the tools.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cptools/html/cpconNETFrameworkTools.asp
Still coaxing software out of the can after all these years...
|
|
|
|
|
I am working on the OfficeAddin(IDTExtensibility2)
and wanting to find out how to enable and disable
toolbar button when user save document
So perfect solution will be if there is
an event when user saves, otherwise
an event that always listening all the thing
you are doing just like PreTranslateMessage
in VC
I hope some has idea about this
van
|
|
|
|
|
I could do this in VBA, but I'm not certain how it would translate into VB.NET
Still coaxing software out of the can after all these years...
|
|
|
|
|
can you tell me how to do this VBA.
I might get hint out of it.
Thanks
|
|
|
|
|
There's a couple ideas I can throw your way, they come from the Microsoft Word MVP website under FAQ's VBA
http://word.mvps.org/
http://word.mvps.org/FAQs/MacrosVBA/AddMenu.htm
http://word.mvps.org/FAQs/MacrosVBA/LaunchExeFromToolbar.htm
http://word.mvps.org/FAQs/MacrosVBA/AttachMacroToButton.htm
I assume you are familiar with adding MS Office references into your projects. Once you've added the specific interop you want to work with, poke around there in the object browser. I was able to figure out a number of options and commands by doing so.
Still coaxing software out of the can after all these years...
|
|
|
|
|
Hallo guys...I've got a question for u.
How can we add new action on file menu when we do right click in that file?Like WinZip.When we do right click file .zip, we can see there's some actions like unzip,extract,or extract to..
Thanks for reply me..
|
|
|
|
|
HKEY_CLASSES_ROOT\exefile\shell\YourAppName\command\
YourAppName: this is what you are going to see in your right click menu.
command: you specify the path to your app exe probably with %1
For example if you have app called myapp.exe in C:\ and want to display
"start my app" on the right click menu
you said
HKEY_CLASSES_ROOT\exefile\shell\start my app\command\
in side of command you have
"C:\myapp.exe %l"l is not the number but alphabet 'L'
Just for your info
if you add the right click menu on directory
this is the place to add the same thing
HKEY_CLASSES_ROOT\Directory\shell\start my app\Command
Good Luck!
|
|
|
|
|
Thanks again for ur reply but...I still confuse.
How can we know that file,for example .zip,has been unziped or extract?Because u dont give any value for that things.
And..how can we do unzip and extract directly from that file menu?Is there any commands that might be added to your sample command(HKEY_CLASSES_ROOT\exefile\shell\start my app\command\"C:\myapp.exe %l"l )that will call to the function(ex:extract/unzip) on program(winzip)?
|
|
|
|
|
I guess i miss your point.( i am trying to meet the deadline...)
I think your have to add the extra parameter in the registery key.
so if you want to add start your app to unzip/zip you might put
two keys like the following
HKEY_CLASSES_ROOT\exefile\shell\my app unzip\command\C:\myapp.exe "unzip"
HKEY_CLASSES_ROOT\exefile\shell\my app zip\command\C:\myapp.exe "zip"
and you will see two menus in context menu. one is linking to your app with unzip parameter the other is zip. At your application side on the startup, you can see Command$ to figure out which menu has been clicked.
For example
msgbox Command$ ( you will see either "unzip" or "zip" in this case)
hope i answer your question right.
|
|
|
|
|
GREAT!!!!!Thanks a lot Van.
Ehm...but how if we wanna make both of them in one context menu?So..after we unzip,the context menu that will shows when we click again that file is zip.Is there another value, we must be added in registry or there's any function in vb that must be added to do this?
Sorry..and thank u
|
|
|
|
|
I haven't figure out yet.
I will need this in the future.
any can help?
van
|
|
|
|
|
Hi, Its great. Thanks a lot
But I have still problem with context menu.
They are:
- How can put icon in front of context menu??? Its the same as Winzip???
- How can retrieve the path and file name when I click right mouse on file. Its the same as Winzip.
Who can help me???
tramdtt
|
|
|
|
|
I recently received my free copy of VB .NET in the mail from microsoft and I'm having a little trouble. It seems as though I cannot create Mobile ASP .NET projects. However, in Visual C++ .NET I am able to create ASP .NET webservices. I receive the following error when I attempt to create the VB .NET Mobile Web Application: Error Message[^]. I am not sure if this is an IIS problem or if it is VB .NET. Any help would be appreciated.
Signature under construction.
|
|
|
|
|
Check this[^] little troubleshooting guide first.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi. I am a 15 years old and program things for fun, I happen to be working on a SNAKE game and ran into a little problem. I notice that the 'head' only eats the 'food' if it is exactly on the pixel of location as the 'food'. How can I fix this problem.
This is a copy of my head_move event procedure:
Private Sub Head_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Head.Move<br />
<br />
If (Me.Head.Location.Y = Me.Food.Location.Y) And (Me.Head.Location.X = Me.Food.Location.X) Then 'checks wheather or not head had eaten the food<br />
createfood() 'creates new food using random number generator<br />
End If<br />
If Me.Head.Location.Y > 320 Then 'determines wheather or not head is in panel<br />
Game() 'resets all variables<br />
End If<br />
If Me.Head.Location.Y < 0 Then 'determines wheather or not head is in panel<br />
Game() 'resets all variables<br />
End If<br />
If Me.Head.Location.X > 384 Then 'determines wheather or not head is in panel<br />
Game() 'resets all variables<br />
End If<br />
If Me.Head.Location.X < 0 Then 'determines wheather or not head is in panel<br />
Game() 'resets all variables<br />
End If<br />
End Sub
superprogrammingdude is out yo.
|
|
|
|
|
superprogrammingdude wrote:
If (Me.Head.Location.Y = Me.Food.Location.Y) And (Me.Head.Location.X = Me.Food.Location.X) Then 'checks wheather or not head had eaten the food
You'd have to check if the Head.Location.X (and .Y) values fall between a range of values around where the food sits.
If (My.Head.Location.Y > (Me.Food.Location.Y - 5) AndAlso _
(My.Head.Location.Y < (Me.Food.Location.Y + 5) AndAlso _
(My.Head.Location.X > (Me.Food.Location.X - 5) AndAlso _
(My.Head.Location.X < (Me.Food.Location.X + 5) Then
'checks wheather or not head had easten the food
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm trying to view and print HPGL formatted graphics. Where I work wonk pop for a dll or controll, so I'm trying to roll my own.
I looked at the specs for it and thought to myself, "holy crap, this is gonna suck..."
so I opted for a different tract... I know that office 97 had the ability to import that format in, but everything after that dosent...
sooooo, i googled hpgl.exe to get the filter. I'm running office 02 and 03 and it still works.
so hers my question:
I want to use vb.net to creat a program to insert this graphic into excel, copy that pic and paste it into a picture box and view and/or print from there.
i know i can do this in a vba macro, but to back up a bit:
we have a DOS based program that scans and graphs data. when we want to print the graph it dumps the .hgl file into another dos program then to the printer through a batch file like so: c:\pp.exe test.hgl
I want to replace pp.exe w/ my program.
we can run it in a dos window, but for some reason we cant snagit, and i've tried all type of capture programs.
so with some research, I come up with this:
<br />
Private Sub insertImg()<br />
Dim ThisApplication As New Excel.ApplicationClass<br />
Dim ThisWorkBook As Excel.Workbook<br />
'ThisApplication.Visible = True<br />
Dim _stFileName As String = "c:\Test.xls"<br />
Dim _stLOGO As String = "c:\test.hgl"<br />
Dim missing As Object = System.Reflection.Missing.Value<br />
<br />
Try<br />
ThisWorkBook = ThisApplication.Workbooks.Open(_stFileName, missing, missing, 5, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)<br />
<br />
Dim ThisSheet As Excel.Worksheet = CType(ThisWorkBook.Sheets(1), Excel.Worksheet)<br />
Dim oRange As Excel.Range = CType(ThisSheet.Cells(10, 1), Excel.Range)<br />
Dim oImage As Image = Image.FromFile(_stLOGO, False)'@@@<br />
System.Windows.Forms.Clipboard.SetDataObject(oImage, True)<br />
ThisSheet.Paste(oRange, _stLOGO)<br />
<br />
ThisSheet.Copy()<br />
picFromXl.Image = Clipboard.GetDataObject<br />
<br />
Catch oEx As Exception<br />
MsgBox(oEx.ToString, MsgBoxStyle.OKCancel, "ooops...")<br />
Finally<br />
<br />
ThisApplication.Quit()<br />
ThisWorkBook = Nothing<br />
ThisApplication = Nothing<br />
End Try<br />
End Sub 'insertImage<br />
when it gets to @@@ in the comments, it throws an exception:
An unhandled exception of type 'System.InvalidCastException' occurred in hpglViewer.exe
Additional information: Specified cast is not valid.
I just can't figure it out, any sugestions...?
Thanx,
Will
|
|
|
|
|
You trying to get the Image object to parse an .HGL file, a format which it knows nothing about. That's why your getting the InvalidCastException. You have to get Excel to import the Image for you, though I don't know, off the top of my head, how to do it. I can tell you that there is an import method (Open, I think) that is in the Excel Object Model.
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
