DR00ME

Cheers!

How do I change VB.NET codeview backcolor ? I want it to be blue instead of white which means I have to change the "reserved words" colors too.

I made a new folder and added existing item .wav inside it.... So how do I play the .wav file ? Private Const SND_FILENAME As Integer = &H20000 PlaySound(_WHAT COMES HERE_, 0, SND_FILENAME) And how do I import the resourcemanager or is that even possible ?

Oh yeah thx for the info (q2) q1. Why not ? I remember there was a bug once in windows e.g. u played .avi and you could execute something same time...the exe was associated with the .avi file somehow...so I was thinking if you could somehow attach .ini / .txt or whatever with .exe file. And you would be also able to modify it(save .exe settings in it)..... Just a thought...

LOL! you should see mine!

q1 . Am I able to save some of my program settings inside the .exe file instead of doing an external e.g. config.ini or using the registry ? The application should remember the changed settings next time it is started... I think this sounds impossible to save data in the application.exe file itself ? q2. Am I able to save .wav files inside the exe so I could play them from the .exe code ? (I think this should be possible)

wish that page would load :D

w00t, damn "2 + 2" as string ...and you want the result in integer ?

ok thx, I'll check it out... this VB.NET object oriented structure drives me crazy lol.... anyway gotta learn it...

After making class1 variable 'a' Public shared AND inheriting class1 it started to work !!!!! but now im very suspicious.... is the code like a cheese with holes ? ... is there something I should change to make is more simple and not so dangerous ?

Namespace Experimental Public Class class1 Public Shared a As Integer 'class2 cant see/change me, why ? Me.text = Class2.HiImclass2subfunction(32,32,32) 'this works End Class Public Class class2 Shared Sub HiImclass2subfunction(......) As String a = a + 1 'this doesnt work functionYO(23,23,23) 'now this works End Sub Private Shared Function functionYO(a,b,c) As String ..... End Function End Class End Namespace I got some elemets working great... only thing bugs me now is that damn class1 variable, any help ?

Ok I made the class2 sub function Private shared now im able to access it in class2..... only problem now is to access class1 variables... even i make them shared I cant manipulate em from class2 private shared fucntion.

Namespace Experimental Public class class1 Shared a As Integer Me.text = HiImclass2subfunction(32,32,32) End Class Public class class2 Shared Sub HiImclass2subfunction(......) As String a = a + 1 'I want to change class1 variable functionYO(23,23,23) End Sub Private Function functionYO(a,b,c) As String ..... End Function End Class End Namespace If i make public sub program as shared sub program(as shown up there) somehow I cant use functionYO anymore, why ? also even 'a' is shared at class1 I cant access it from shared sub program in class2. When I point to functionYO it says: "cannot refer to an instance member or a class from within a shared method or shared member initializer without an explicit instance of the class" lol when I point variable 'a' in class2 it says "name 'a' is not declared" when I point class2 sub program in class1 it says "name 'HiImclass2subfunction' is not declared"

hey I made some variables share in class1 ....but i still cant access them from class2 public sub proggy why ? "sorry i edited this same time"

OK now I got a problem (not a first time tough lol) I got two classes... class1 and class2...I got one sub program and two functions in class2. The sub program should be able to use the two functions in the same class. Also the sub program should be able to return/change values in class1 public variables. How do I make all this work lol ... im inheriting class1 in class2 because I noticed that way i could use class1 public variables.... if i make the sub program shared I cant use the functions in class2...but if i make the sub program non shared = public...I cant use class2 sub program in class1.... I hope someone understand this mess lol Namespace Experimental Public class1 Public a as integer Me.text = HiImclass2subfunction(32,32,32) end class Public class2 public sub HiImclass2subfunction(......) as string a = a + 1 'I want to change class1 variable functionYO(23,23,23) end sub private function functionYO(a,b,c) as string ..... end function end class end namespace

I think now I inherited first class to second class...and now im able to control first class varibles too(if they are public) ...cool..

One thing more, is there any tutorial somewhere about sharing classes and functions... or could you show me a little example of sharing a class ? how about if i want to change values of class1 public variables in class2 ?

Yes, that is what I wanted to know. I thank you for your time.

Oh I see, well do you know the min and max values for saturation and luminance for input ? Like what standard it is using ? I guess it doesnt mean Short max value is e.g. saturation max value ? This is a bit confusing now. pls don't tell me it is using max values like 239,240,240 = MS Paint (hue,sat,lum) .... oh dear...this is something I didn't want to know....:) but then again it doesnt make any sense why the API is using short as Sat. and Lum. input instead of Byte (min. 0 max 255) grrr :/ (63, 0.9176471, 0.952381) I got those values using .hue .getsaturation and .getbrightness from a specific pixel.... and I cant convert them to right RGB values without using my own function... ????

I think ColorRGBToHLS is using standard values ? like saturation min=0 max=1 and brightness min=0 max=1... so they are single not integer... I dont know from where I got the failure API structure but there shouldnt be integers as input. The under-lying API is using long or singles. Maybe I should try Longs too. ????????????????

Private Declare Function ColorHLSToRGB Lib "SHLWAPI.DLL" _ (ByVal wHue As Single, ByVal wLuminance As Single, ByVal wSaturation As Single) As Long As you can see I changed the types to singles... the result changed but it is still a wrong result. Now the long is: 1005025044970 According to this formula: nRed = nColor And 255 nGreen = (nColor / 256) And 255 nBlue = (nColor / 65536) And 255 it gives result of: 234 42 41 (RGB) = wrong answer.

Thanks that helped a lot... also do you mean I should use more classes in same form instead of modules or what do you mean by namespaces ?

The long value is exactly: 579820650753 eh...

So basically I'm asking about the program structure....

Public class Yoyo Private Sub MySubProggy(ByVal hello As Byte) Dim Class1 As New HELLO '(HELLO is in module) ... ... Max = Class1.Maximum(A, B, C) Min = Class1.Minimum(A, B, C) 'After using the fuctions: 'Do I set something to Nothing or do I dispose something ? ... ... End sub End Class[/Vb] [code=visualbasic]Module mdlCam Public Class HELLO Public Function Maximum(ByVal a As Single, ByVal b As Single, ByVal c As Single) As Single ... End Function Public Function Minimum(ByVal a as single, ByVal b as single,ByVal c as single) As Single ... End function End Class End Module like this ? so do I have to set something to 'Nothing' after using the functions ? and have I done something wrong like is the code too public or something ?