|
JR212 wrote: Where are the programmers geniusses from before?
Same place they always are. What is your problem?
|
|
|
|
|
Still the same as described in this topic. I need to find out what the footertext is in a listviewgroup in a .dotnet4 program throu user32.dll sendmessage.
Header is no problem but footer alway return 'nothing'
Jan
modified 18-Jun-21 5:30am.
|
|
|
|
|
|
Hi
Sorry but your first link is for the listviewfooter and not listviewGROUPfouter. I gues I need ListView_GetGroupInfo macro (commctrl.h) - Win32 apps | Microsoft Docs but I cant get that to work.
Your question why not use the default control. I do (partely)! I need to work with ownerdraw and the Listview control in dotnet doesn't have support for the groupfooter or the description(top nor bottom). If using dot core 5.0 I can but I need to work with 4.7 or less.
I'm been looking for weeks and can't find a working example for the groupfooter. I can if it is normaldraw so I have a code to set the footer but not to get/retrieve it.
Jan
|
|
|
|
|
|
your absolutly 100% right. But I can't get it to work
modified 24-Jun-21 2:19am.
|
|
|
|
|
JR212 wrote: But I can get it to work
Well I am afraid that no one here has any chance of guessing what that means.
|
|
|
|
|
Hi
I've created my own listview with lots of extra options. like colored headers.
Thats where I have a small proplem.
What code has the icon at the right of the header for collapse/expand. I've tryed with this enum
Enum HeaderIconOpenCloseType
'open
arrow1 = 8679
triangle1 = 8711
V1 = 8744
small_v1 = 8964
'closed
arrow0 = 8681
triangle0 = 8710
V0 = 8743
small_v0 = 8963
End Enum
But none of them are exactly the same as the icon the base listview uses.
Small_V commes closes to the real one
Jan
|
|
|
|
|
how to code for clear button and cslculate button
|
|
|
|
|
Start by writing down what you want the buttons to do. Then write the code to do that.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
I use
...
.ListItems(RM).SubItems(D) = ""
.ListItems(RM).ListSubItems(D).ReportIcon = 1
...
the column are just set to center.
modified 21-May-21 8:58am.
|
|
|
|
|
What is your question?
And please don't shout.
|
|
|
|
|
Sorry me.
i need to center icon in a column of listview.
part of code
...
.ListItems(RM).ListSubItems(D).ReportIcon = 1
...
note:
the columns are just set to center align.
|
|
|
|
|
Sal Sal wrote: the columns are just set to center align.
It only means that the subitem will be centered in the column. But image is by default left justified.
If you'd like to change this behavior then you should implement something like owner or custom draw.
|
|
|
|
|
Back in 2014 I responded to a similar question with Quote: AFAIK there is no way to move the icon around unless you create your own custom control - not a pleasant task in VB6.
As VB6 hasn't been updated in decades, since going out of support, then nothing will have changed since then.
So create your own custom control is the way forward if you stick with VB6.
|
|
|
|
|
Good morning, there's one implement I want in my project which is an autotyper. Similar to the way KeyPass AutoTyper works, but less advanced disregarding sequences.
I'm trying to code an autotyper which when I press the start button it will simply just await for a text field(like SendKeys.Send), and it will send each character in the string to a text field in order and will stop the autotyper automatically once the entire string was sent.
I tried various methods including using for each character in a string sendkeys, but it always doesn't work properly. For an example, I run the project and go to the Auto Type Form, which is an external form using autotypeform.show, it also has topmost on it so when i go to a browser it's still visible, once you the click start button it starts the autotyper timer in main form, once i go to a text field(google.com search bar for an example) it will sendkeys but not the entire string or it will occasionally skip a character. Can someone please help?
modified 18-May-21 10:00am.
|
|
|
|
|
Don't post the same question multiple times. You already posted this here[^].
|
|
|
|
|
i have some code with c as colour at (x,y) that have vale: ARBG, i compare it to find black colour but i problem like picture. Who can help me fix it?
Private Shared Function IsBlackColor(ByVal c As Color) As Boolean
If (c.R + c.G + c.B) <> 255 * 3 Then
Return True
End If
Return False
End Function
modified 23-Apr-21 9:58am.
|
|
|
|
|
Nobody can help you, because you haven't described the problem you're having.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
You haven't described your problem at all, but since you mentioned "picture", I'm going to GUESS that what you're having a problem with is your code is checking for ONE specific value that you consider black, when what you perceive as black is actually a range of values.
|
|
|
|
|
At first you should realize that Black is 0 at R and B and G - not 255 - that is White.
Then :
- an Addition of those Values - what is the sense of it ?
- a Pixel looks also Black to you if the RBG-Value are near to 0
To get more help you should provide more Info from your side ...
|
|
|
|
|
ducpkh wrote: have some code with c as colour at (x,y) that have vale: ARBG
You sure? What depth?
ducpkh wrote: i compare it to find black colour but i problem like picture
There's no absulute black in real pictures.
Your "black" needs be a range.
Bastard Programmer from Hell 
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
This is a snippet of an xml file I need to add a child to:
<ClientData>
<prop name="CGuid" type="0">403131A1-95D</prop>
<prop name="CState" type="0">CA</prop>
<prop name="CFName1" type="0">Lily</prop>
<prop name="CLName1" type="0"></prop>
<prop name="CEmail" type="0">lily@13.com</prop>
</ClientData>
I need to add "CEmail2", CEmail3" etc, etc to this group.
Using a xml file viewer I manually did this by doing 3 steps:
Add child to <clientdata> named "prop"
Add attribute to prop Name="Name",Value="CEmail2"
add attribute to prop Name="type', Value="0"
Currently, I am writing to existing nodes using the following:
Dim DOM As MSXML2.DOMDocument
Dim Node As MSXML2.IXMLDOMNode
Set DOM = New MSXML2.DOMDocument
With DOM
.async = False
.preserveWhiteSpace = True
If .Load("C:\HouseMaster\CloneRPT.hr4") Then
.setProperty "SelectionLanguage", "XPath"
Set Node = .SelectSingleNode("//ClientData/prop[@name='CEmail']")
Node.Text = "Someone@aol.com"
<pre> End If
End With
I believe that I neded to use CreateChild() but how do I add the attributes as I did manually in VBA?
Thanks for your help
|
|
|
|
|
It's been a while, but try something like this:
Dim ClientData As MSXML2.IXMLDOMNode
Set ClientData = .SelectSingleNode("//ClientData")
Set Node = .CreateElement("prop")
Node.Text = "chunkylover53@aol.com"
Node.SetAttribute "name", "CEmail2"
Node.SetAttribute "type", "0"
ClientData.AppendChild Node The API reference is archived, but still available:
DOM Reference | Microsoft Docs[^]
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Richard, thanks for the quick reply.
Michael 
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
