Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: нужно переделать код из Vb6 в Vb .net Добавлено: 06.12.09 19:09  

Автор вопроса:  Dmitry | ICQ: 293773627 
Нужно переделать небольшой код из Vb6 в Vb .net 2003, за умеренную оплату WMR
Обрашаюсь к знающим эти платформы
Код размером 175 строк

Ответить

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

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 06.12.09 19:10
код может напишешь)

Ответить

Номер ответа: 2
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #2 Добавлено: 06.12.09 20:30
кодик дай

Ответить

Номер ответа: 3
Автор ответа:
 Dmitry



ICQ: 293773627 

Вопросов: 2
Ответов: 17
  Профиль | | #3 Добавлено: 07.12.09 07:09
Код кину на мыло, здесь не хочу загромождать форум...
Кто возьмется отпишитесь мне на почту onkg@ya.ru

Ответить

Номер ответа: 4
Автор ответа:
 Dmitry



ICQ: 293773627 

Вопросов: 2
Ответов: 17
  Профиль | | #4 Добавлено: 09.12.09 11:42
давайте по блокам, начнем с этого:
  1. Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
  2.  
  3. Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  4.  
  5. Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
  6.  
  7. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  8.  
  9. Private hWNDSrc As Long
  10. Private hDCSrc As Long
  11.  
  12. Private Sub Timer1_Timer()
  13.     hWNDSrc = FindWindow(vbNullString, Combo1.Text & vbNullChar)
  14.     If hWNDSrc > 0 Then
  15.         hDCSrc = GetDC(hWNDSrc)
  16.         Picture1.Cls
  17.         BitBlt Picture1.hDC, 0, 0, 21, 21, hDCSrc, CLng(Text2.Text), CLng(Text3.Text), vbSrcCopy
  18.         ReleaseDC hWNDSrc, hDCSrc
  19.         OCR
  20.     Else
  21.         Picture1.Cls
  22.         Text4.Text = vbNullString
  23.     End If
  24. End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Dmitry



ICQ: 293773627 

Вопросов: 2
Ответов: 17
  Профиль | | #5 Добавлено: 10.12.09 06:26
Для тех кто сомневается что код верен проверьте на VB6, там все идет и все вено, приложение запускается и выполняет все задуманные функции, никакой ошибки нету
OCR - это optical character recognition (оптическое распознавание текста)
Я сам не знаю, каким боком в VB6 оно стоит там в коде, но блин, работает....
Не знаю, есть ли смысл выкладывать продолжение кода, если пока с этим не разобрались...

Ответить

Номер ответа: 6
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #6 Добавлено: 10.12.09 20:51
:-) акулы в отпуске

Ответить

Номер ответа: 7
Автор ответа:
 Dmitry



ICQ: 293773627 

Вопросов: 2
Ответов: 17
  Профиль | | #7 Добавлено: 11.12.09 07:49
Smith
Акула, :) Када на связи будешь?

Ответить

Номер ответа: 8
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #8 Добавлено: 11.12.09 15:42
Сам незнаю, я последние две недели в разъездах.
Новый год буду на новой работе встречать:-).
Если и появится свободное время, то только в следующем году, в феврале наверное.

Ответить

Номер ответа: 9
Автор ответа:
 SSTREGG



Вопросов: 3
Ответов: 64
  Профиль | | #9 Добавлено: 11.12.09 19:17
C#:
  1. [DllImport("user32.dll")]
  2. private static extern IntPtr GetDC(IntPtr hwnd);
  3. [DllImport("gdi32.dll")]
  4. private static extern int BitBlt(IntPtr hDestDC, int x, int y, int nWidth, int nHeight, IntPtr hSrcDC, int xSrc, int ySrc, int dwRop);
  5. [DllImport("user32.dll")]
  6. private static extern IntPtr ReleaseDC(IntPtr hwnd, IntPtr hdc);
  7. [DllImport("user32.dll", EntryPoint = "FindWindowA")]
  8. private static extern IntPtr FindWindow(string lpClassName, string lpWindowName);
  9. private const int SRCCOPY = 0xCC0020;
  10.  
  11. IntPtr hWnd = IntPtr.Zero;
  12. IntPtr hDC = IntPtr.Zero;
  13.  
  14. private void tmrPaint_Tick(object sender, EventArgs e)
  15. {
  16.     pbMain.Invalidate();
  17. }
  18.  
  19. private void pbMain_Paint(object sender, PaintEventArgs e)
  20. {
  21.     hWnd = FindWindow(null, cboCap.Text);
  22.     if (hWnd != IntPtr.Zero && (txtFirst.Text.Length != 0 && txtSec.Text.Length != 0))
  23.     {
  24.         hDC = GetDC(hWnd);
  25.         BitBlt(e.Graphics.GetHdc(), 0, 0, 210, 210, hDC, 30, 30, SRCCOPY);
  26.         ReleaseDC(hWnd, hDC);
  27.         e.Graphics.ReleaseHdc();
  28.     }
  29.     else
  30.     {
  31.         txtNull.Text = string.Empty; ;
  32.     }
  33. }


На VB.NET переводить влом, в нете есть "переводчики" C# -> VB.NET

Ответить

Страница: 1 |

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



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