Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: 2 вопроса:Measurestring и bitmap+graphics Добавлено: 10.04.10 15:06  

Автор вопроса:  D o c a l  | Web-сайт: www.doc-source.pp.net.ua/ | ICQ: 408802757 
1)Как точно измерить ширину текста в vb.net? measurestring ошибается причем очень сильно.

2)

Dim bmp As New Bitmap(30, 20)
Dim i, j, sum As Integer
Dim grFront As Graphics


grFront = Graphics.FromImage(bmp1)
    
grFront.DrawString("778", stringFont, Brushes.Black, 0, 0)
        
        For i = 0 To 29
            For j = 0 To 19
                If bmp1.GetPixel(i, j).r <> 0 Then MsgBox(bmp1.GetPixel(i, j).A)
              
            Next
        Next
  


почему гетпиксел всегда возвращает ноль? то есть битмап пуст

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
 Профиль | | #1 Добавлено: 10.04.10 16:04
  1. Dim bmp As New Bitmap(30, 20)
  2. ......
  3.  
  4.  
  5. grFront = Graphics.FromImage(bmp1)
Найди одно отличие с одного раза.

Ответить

Номер ответа: 2
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
 Профиль | | #2 Добавлено: 10.04.10 16:08
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim bmp As New Bitmap(30, 20)
  3.         Dim i, j As Integer
  4.         Dim grFront As Graphics
  5.         grFront = Graphics.FromImage(bmp)
  6.         grFront.DrawString("778", Me.Font, Brushes.Black, 0, 0)
  7.         For i = 0 To 29
  8.             For j = 0 To 19
  9.                 If bmp.GetPixel(i, j).R <> 0 Then MsgBox(bmp.GetPixel(i, j).A)
  10.             Next
  11.         Next
  12.         Me.BackgroundImage = bmp
  13.     End Sub

Ответить

Номер ответа: 3
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
 Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #3
Добавлено: 10.04.10 17:35
сори bmp1 я уже заменил когда на форум вставлял..у мя все норм в коде
Все ровно оно не работает

Где меня клемануло?или я что то не понимаю??


Ответить

Номер ответа: 4
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
 Профиль | | #4 Добавлено: 10.04.10 23:51
Что ты не понимаешь?
Какой по твоему должен быть цвет у черной кисти?
Замени Brushes.Black на Brushes.Red и будет тебе счастье.

Ответить

Номер ответа: 5
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
 Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #5
Добавлено: 11.04.10 11:58
Спасиба

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам