hi,i am looking for any sample to can create theme like this.
i can design with activeskin but i want more samle,imprtants to me is material colors and soft radius form corners and objects.
Attachment 177602
Printable View
hi,i am looking for any sample to can create theme like this.
i can design with activeskin but i want more samle,imprtants to me is material colors and soft radius form corners and objects.
Attachment 177602
LeandroA, has the following project, in case you are helpful or have ideas.
their menus look very nice.
http://www.vbforums.com/showthread.p...lus&highlight=
Greetings
when i downloaded source and want open projects i can see just this error : experssion too complex,how can fix this error? i cant open projects
You posted the question on my alpha image control also. I'll give you this hint (and I don't' think it is related to my control).
Look for "Not Not" in your source code. Do a complete project search for those two words together like that. It is a common approach to test an array if it is dimensioned or not. And that method can cause that error. If you see "Not Not" used with arrays, add this line shortly after that statement: Debug.Assert App.hInstance
Now run the project again and see if error goes away. For more information on Not Not with arrays, see this FAQ page
If the error isn't related to Not Not, then at least post the line that is causing the error.
If you are having problems in the IDE then I would first stop all intrusive ADDINS like CodeSmart
They modify the IDE to heavily.
I tried it once, their addin uses the CodeJock visual components to enhance the IDE experience, which conflicts heavily with my version of the CodeJock controls I use in my project.
Okay, so I tried the "not not" method in vb6:
And it works! As to my question: why does it work and what do the numbers returned actually mean? It may be pointer, but definitely not the arrays size, the numbers are too big and don't relate to array's size.Code:Public Sub Main()
Dim tmp() As Long
MsgBox (Not Not tmp())
ReDim tmp(0 To 100)
MsgBox (Not Not tmp())
End Sub
Outputs:Code:Public Sub Main()
Dim tmp(0 To 100) As Long
Dim tmp1(0 To 100) As Long
Dim tmp2(0 To 100) As Long
Debug.Print Not Not tmp()
Debug.Print Not Not tmp1()
Debug.Print Not Not tmp2()
End Sub
1702628
1702600
1702572
Those do look like pointers with 28 byte descriptiors. Anyone here know?
ps:
I tried this trick in GWbasic, Q(uick) Basic, and vb.net as well. It didn't work.
any more samples?
It's a bug in the compiler and it makes the IDE (interpreter) runtime unstable so should never be used is production (or any other) code.
Just use ArrPtr alias to VarPtr to get pointer to the SAFEARRAY. If this is not nullptr then the cDim As Integer member is in the first 2 bytes.
cheers,Code:Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (Ptr() As Any) As Long
</wqw>