Установите пользовательский курсор от файла ресурсов

Я бы посоветовал вам начать с написания кода для генерации всех возможных троек. Ваш createGroups пытается сделать это, но это неверно, поскольку при применении к [1,2,3,...] никогда не будет генерироваться (1,3,something), поскольку 1 и 2 либо взяты вместе, либо отброшены.

Я бы рекомендовал вместо этого использовать понимание списка, используя tails:

createGroups list = 
   [ (x,y,z)
   | (x:xs) <- tails list
   , (y:ys) <- tails xs
   , z      <- ys ]

(Если вы не хотите использовать tails, вам нужна более умная рекурсивная функция вместо понимание списка выше.)

Затем можно отфильтровать тройки, которые не суммируются с требуемым целевым числом.

6
задан tshepang 2 May 2014 в 09:20
поделиться

5 ответов

Предположение имени ресурса может быть трудным. Для обнаружения выполните Ildasm.exe на программе. Дважды щелкните по "Manifest" и ищите .mresource.

Другой способ сделать это, который старается не предполагать: Проект + Свойства, вкладка Resource. Нажмите стрелку на кнопку "Add Resource", Добавьте Существующий Файл и выберите свой .cur файл. Заставьте свой код быть похожим на это:

Dim ms As New System.IO.MemoryStream(My.Resources.Cursor1)
Button1.Cursor = New Cursor(ms)
8
ответ дан 10 December 2019 в 02:55
поделиться

Спасибо за справку! Я предположил, что, если бы я создал ресурс в Visual Studio IDE, это добавило бы его к моему проекту. Глупый я!

Я должен был перейти к вкладке Project для добавления Окна. Использование файла дворняги Добавляет, Ресурс (благодарит nobugz!) и затем используют код, который он упомянул:

Dim ms As New System.IO.MemoryStream(My.Resources.Window)

Button.Cursor = New Cursor(ms)

Я голосовал бы по ответу, если я мог, но я не могу, поскольку у меня только есть значение 13 в настоящее время.

1
ответ дан 10 December 2019 в 02:55
поделиться

Предположим, что Вы присваиваете "Cursor1.cur", чтобы быть курсором для управления "Button1".

В Вашей Форме. Событие загрузки Вы сделали бы что-то как -

Button1.Cursor = New Cursor(Me.GetType(), "Cursor1.cur")
0
ответ дан 10 December 2019 в 02:55
поделиться

Вы не должны использовать цветные курсоры на 32 бита.

0
ответ дан 10 December 2019 в 02:55
поделиться

Вы пропускаете пространство имен. Вы, вероятно, хотите использовать:

MyNamespace.MySubfolder.Window.cur

Править: Кроме того, удостоверьтесь, что Ваше Действие Сборки для объекта является "Встроенным Ресурсом", иначе это не будет, включают в Ваш dll/exe.

0
ответ дан 10 December 2019 в 02:55
поделиться
Другие вопросы по тегам:

Похожие вопросы: