Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Июль 2007 →
	1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 160

http://www.kbyte.ru/

Новый выпуск!

Дело было вечером, делать было нечего, и решил я выпустить рассылку с последними обновлениями сайта, строго не судите, но если есть что сказать, пишите, не молчите, буду рад ответить.

Ваш R-KDR-19826

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #000360: Замена ткстового поля одной программы в другой

Вопрос #000358: VB 6.0: Взаимодействие с другими приложениями

Вопрос #000352: Создание_ярлыка_для_ИСПОЛНЯЕМОГО_файла

Вопрос #000347: PictureBoх

Вопрос #000345: Проблема_с_SHAddRecentDoc

Последнее на форумах

Отправка СМС из приложения

На каком языке программирования Вы программируете?

Выбор checkbox'а в IE

ASP (Repeater and CheckBox)

Компактирование базы Access в VB.NET

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)

Работаем с MIME

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше

Visual Basic .NET: Работа с файлами

ASP .NET 2.0: Эталонные страницы

Интересные коды и решения

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000360: Замена ткстового поля одной программы в другой

Автор вопроса: Федоренко Дмитрий Константинович // 17.07.2007 / 12:28

Здравствуйте!
 
 Подскажите, как вызывается функция SendMessage?
 Интересует вот что. Я посмотрел на сайте примеры кодов, но
 не нашел как там управлять другими элементами на форме (в
 частности буду благодарен, если покажете как присвоить
 текстовому полю "элементу типа TEXT"
значение текстового поля из
 другой внешней формы-окна).
 
 Заранее благодарю.

Отвечает: Алексей Немиро // 17.07.2007 / 12:46

Здравствуйте, Дмитрий!
 
 Создайте новый EXE-проект, на форме разместите элемент
TextBox,
 оставьте все без изменений, главным образом заголовок окна должен быть
 "Form1", имя текстового поля - Text1. Скомпилируйте проект и запустите его.
 
 Создайте еще один EXE-проект и вставьте следующий код:
 
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As
Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function
IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd
As Long, ByVal nCmdShow As Long) As Long

Private Const SW_RESTORE = 9
Private Const WM_SETTEXT = &HC
Private
Const BM_CLICK = &HF5

Private Sub Form_Load()
 Me.Caption = "Простой пример"
 Dim h As Long, hText As Long
 
 h
= FindWindow(vbNullString, ByVal "Form1")
 ActivateWindow h
 hText = FindWindowEx(h, 0, vbNullString, ByVal "Text1")
 If hText <> 0 Then SendMessage hText, WM_SETTEXT, 0, ByVal "Kbyte.Ru"

End Sub

Private Sub ActivateWindow(h As Long)
 If h Then
  If IsIconic(h) Then
   Call ShowWindow(h, SW_RESTORE)
  End If
  Call SetForegroundWindow(h)
 Else
  Exit Sub
 End If
End Sub

 
 Нажмите F5. Если программка созданная в первом проекте
запущена, то
 значение текстового поля изменится на "Kbyte.Ru".
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Вопрос #000358: VB 6.0: Взаимодействие с другими приложениями

Автор вопроса: Федоренко Дмитрий Константинович // 16.07.2007 / 12:31

Здравствуйте. Скажите пож-та. Я посмотрел ваш ответ <Тема: изменить размер клиента окна WinAPI>.
 Хотел задать такой вопрос, не могу разобраться как, после получения дескриптора окна и класса, заносить, скажем, в какие то поля типа текст информацию из других полей другого окна (другой программы, внешнего). То есть, как получить доступ к полям одного окна и другого и выполнить присваивание.
 
 Заранее благодарю.

Отвечает: Алексей Немиро // 16.07.2007 / 14:00

Здравствуйте, Дмитрий!
 
 Думаю Вам поможет нижеследующий код. Обратите особое внимание на
 API-функцию SendMessage. В примере при загрузке формы,
 производится поиск окна
по заголовку strCaption, и если окно найдено,
 производится поиcк кнопки с заголовком MyProgramIsBe, если кнопка
 найдена, то ей отправляется команда Click. Точно также можно работать
 и с любыми другими элементами. Вы также можете посмотреть готовые
 примеры в разделе Примеры кодов на нашем сайте.
 
 http://kbyte.ru/unicode/ShowCode.aspx?id=89
 
 Данный пример показывает, как можно показать первую копию
 программы, при попытке запустить еще одну копию этой же программы.
 Создайте стандартный EXE-проект. На форме разместите один элемент
 CommandButton,
назовите его cmdBeOrNotToBe и вставьте следующий
 код:

 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow
Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As
Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const
SW_RESTORE = 9
Private Const WM_SETTEXT = &HC
Private Const BM_CLICK = &HF5

Private Sub Form_Load()
 Dim h As Long, hButton As Long
 Dim strCaption As String
 cmdBeOrNotToBe.Visible = False
 strCaption = "Моя программа"
 
 If App.PrevInstance Then
  h
= FindWindow(vbNullString, ByVal strCaption)
  ActivateWindow h
  hButton = FindWindowEx(h, 0, vbNullString, ByVal "MyProgramIsBe")
  If hButton <> 0 Then SendMessage hButton, BM_CLICK, 0, ByVal 0&
  MsgBox
"Программа уже запущена!", vbCritical
  End
  Exit Sub
 Else
  Me.Caption = strCaption
  cmdBeOrNotToBe.Caption = "MyProgramIsBe"
 End
If

End Sub

Private Sub cmdBeOrNotToBe_Click()
 Me.Show
 Me.WindowState = vbMaximized
End Sub

Private Sub ActivateWindow(h
As Long)
 If h Then
  If IsIconic(h) Then
   Call ShowWindow(h, SW_RESTORE)
  End If
  Call SetForegroundWindow(h)
 Else
  Exit Sub
 End If
End Sub

 
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Вопрос #000352: Создание_ярлыка_для_ИСПОЛНЯЕМОГО_файла

Автор вопроса: Mark Kunst // 13.07.2007 / 12:53

Здраствуйте ...
 
 Я нашол код , создания ярлыка через WinAPI ..
 
 Там используются функции :
 
  SHAddToRecentDocs
  SHGetSpecialFolderLocation
  SHGetPathFromIDList
 
 Все фунции работают , за исключением
"SHAddToRecentDocs"
 
 Как я понял , "SHAddToRecentDocs" - не работает с исполняемыми файлами ( не создает ярлыки на ".exe" , ".dll" , ".com" и т.п в папке "Недавние документы" )
 
 Потскажите как сделать ярлык на ИСПОЛНЯЕМЫЙ файл ( exe , bat , com , dll ),
 и можно ли это сделать через другие функции ? если да , то какие ?
 
 Заранее спасибо ...

Отвечает: Алексей Немиро // 14.07.2007 / 07:16

Здравствуйте,
 
 Любого файла:
 001:
002:
003:
004:
005:
006:
Dim
oShell, oShortCut, sDeskTopPath
Set oShell = CreateObject("Wscript.Shell")
sDeskTopPath = oShell.SpecialFolders("Desktop")
Set oShortCut = oShell.CreateShortcut(sDeskTopPath & "\Kbyte.Ru.lnk")
oShortCut.TargetPath =
"http://kbyte.ru/" '"C:\windows\notepad.exe"
oShortCut.Save

 
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Вопрос #000347: PictureBoх

Автор вопроса: Сергей // 12.07.2007 / 20:31

Уважаемые Эксперты!
 
 Прошу у Вас прощения, но как говорят: "Тут-то меня и понесло" - задавать
 вопросы.
 
 Возможно-ли применение при програмировании на VB6.0 в PictureBox, Image, PictureClip
 и т.п. иозбражений "не признанных форматов" типа:
 *.png, *.pdn, *.tiff и т.д
 
 Если - да, то каким образом?
 Заранее благодарен
за ответ, Сергей
 
 --------------------------------------
 Категория: --- Visual Basic 5.0/6.0
 
 

Отвечает: Алексей Немиро // 13.07.2007 / 06:30

Здравствуйте,
 
 Стандартными средствами это сделать
не возможно. Используйте сторонние
 библиотеки и компоненты. Например, http://www.chestysoft.com/ximage/default.asp:
 - Add image functionality
to your own applications.
 - Support for BMP, GIF, JPG, PNG, PSD, PCX, TIFF and WBMP image formats. Can export to PDF.
 - Import images from disk, binary data, clipboard, scanner or remote URL.
 - Image manipulation functions include resize, scale, crop, rotate and flip.
 - Image enhancement functions include brightness, contrast, sharpen, blur and greyscale.
 - Create compound images and watermarks by merging images.
 - Place text onto the image using any installed font with optional
antialiasing. Support for Unicode characters.
 - Perform simple image editing drawing lines and shapes with optional colour fills.
 - Read and edit IPTC text (meta data) in JPEG and TIFF images.
 - Read and edit Exif attributes from JPEG and TIFF files.
 - Images can be exported to a remote server as an HTTP upload.
 - Zoom and print functions and mouse events included.
 - Royalty free distribution of the OCX file.

 правда, он триальный.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Вопрос #000345: Проблема_с_SHAddRecentDoc

Автор вопроса: Mark Kunst // 12.07.2007 / 18:03

Здраствуйте ...
 
 У меня не роботает API функция
"SHAddRecentDoc" , перепробовал все ...
 
 Вот отрывок кода :
 
 Private Declare Function SHAddToRecentDocs Lib "shell32.dll" Alias "SHAddToRecentDocs" (ByVal dwFlags As Long, ByVal dwData As String) As Long
 
 Call SHAddToRecentDocs(2, "C:\WINDOWS\System32\logoff.exe")
 
 Ошибки нет , но она ничего не делает , я пользовался справочниками , смотрел исходники , ни в одном коде она не работает ...
 
 Подскажите , как ПРАВИЛЬНО
ей пользоваться , покажите несколько примеров ...
 
 Заранее спасибо!

Отвечает: Алексей Немиро // 13.07.2007 / 06:46

Здравствуйте,
 
 Она работает, например так:
 SHAddToRecentDocs 2, "C:\1.txt"
 (ваш вариант тоже правильный)
 
 проблема с exe-шками, а также с com-ами, и возможно еще какими-нибудь
 форматами в Windows XP:
 
 MSDN:
 Note Microsoft® Windows®
XP filters .exe files from the recently used documents list.
 Although SHAddToRecentDocs will accept the path of a executable file under Windows XP, that file will not appear to the
 My Recent Documents list.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Отправка СМС из приложения | Автор: Игорь Голов
Добавлено: 16.07.2007 / 15:19 | ответов: 2 | просмотров: 14

Доброго времни суток!

У меня возник вопрос:
можно ли отправить СМС из Приллжения, написанного на Visual Basic .NET 2005?

Спасибо!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:16.07.2007 / 15:26
Можно, если найти бесплатный веб-сервис, который это делает (только без кривых картинок и прочих антиботов).

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:16.07.2007 / 15:27
Под веб-сервисом я имел ввиду не обязательно веб-сервис, но и просто страницу в Интернет.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

На каком языке программирования Вы программируете? | Автор: Алексей
Добавлено: 15.07.2007 / 06:38 | ответов: 14 | просмотров: 28

На каком языке программирования Вы программируете чаще всего и почему?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:15.07.2007 / 06:41
и второй вопрос по веб:

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: EROS
Добавлено:15.07.2007 / 09:53
Попимо вышеозначенных языков ежедневно на работе приходится писать на Java,J# JScript

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Bille Gates
Добавлено:15.07.2007 / 13:11
На каком языке программирования Вы программируете?

Я ржал... Каламбур... :) Главное, Алексей, ты и сам этого не заметил :) (хотя не факт)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:15.07.2007 / 13:25
Главное, Алексей, ты и сам этого не заметил :)

я все вижу
и даже то, что ты не принял участие в опросе ;-)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: Bille Gates
Добавлено:15.07.2007 / 14:12
я принимал участие... даже раньше чем написал про каламбур... видимо обновил страничку или ещё что-то, не засчиталось...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: Алексей
Добавлено:15.07.2007 / 14:24
я принимал участие... даже раньше чем написал про каламбур... видимо обновил страничку или ещё что-то, не засчиталось...

опиши порядок действий (и что ты видишь сейчас, активная кнопка "Голосовать"? и что было после нажатия на кнопку "Голосовать"), а то что-то не понятное творится.. причем только у тебя, больше никто не жаловался...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: Bille Gates
Добавлено:15.07.2007 / 14:32
вот сейчас даже, когда последний раз тут отвечал, жал голосовать, нефига не сработало опять...
проядок:
1-активна кнопка голосовать
2-выбираю вариант
3-жму голосовать, после этого вылазит ваш голос принят...
4-дописываю ответ, и жму добавить сообщение...

Лех, я кажется понял... :) У меня всплывающие окна заблокированны (бразузер Opera 9) щас эксперимент будет... на 1 проголосовал, и открыл всплывашку, а на втором нет... что получится...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: Bille Gates
Добавлено:15.07.2007 / 14:34
о... сработало... (лех, перенеси все на аякс, чтобы всплыв окон небыло... смысла в них не вижу... пусть буде как кнопка "быстрый переход" нажал, а аякс открыл её... :)
Я просто всплыв окна отрубил чтобы небыло рекламы всякой (в основном warez и порно)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 9 | Автор: Алексей
Добавлено:15.07.2007 / 15:16
перенеси все на аякс, чтобы всплыв окон небыло... смысла в них не вижу...

а я вижу, аджкса не будет в более ли мнее важных частях сайта.

пусть буде как кнопка "быстрый переход" нажал, а аякс открыл её...

это не ajax, это обычный dom :)

(в основном warez и порно)

нормальные сайты не поставят у себя порно-рекламу ;)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 10 | Автор: pasha
Добавлено:15.07.2007 / 15:36
Кстати, Алексей, как Вы вставляете у себя голосование прямо в топик? Я хочу устроить такое: Каким браузером вы пользуетесь (Maxthon фореве)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 11 | Автор: Bille Gates
Добавлено:15.07.2007 / 16:13
нормальные сайты не поставят у себя порно-рекламу ;)

ты сам им это скажи, реклама стиральной машины, шелкаешь, а там ссылка на dosug была :))) и половина ссылок когда чтото на яндексе ищешь, тоже ссылаются на какой-нить мусор... причем открывается сразу 2 странички... та которую искал(но редко) и на мусор всякий(тока траффик жрет)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 12 | Автор: Игорь Голов
Добавлено:15.07.2007 / 17:33
А я на Visual Basic . NET программирую! : ))

Почему на нём?
Просто от Visual Basic 6.0 не отошёл...

В смысле - начинал на нём, а бросать жалко....

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 13 | Автор: Алексей
Добавлено:16.07.2007 / 05:58
Кстати, Алексей, как Вы вставляете у себя голосование прямо в топик? Я хочу устроить такое: Каким браузером вы пользуетесь (Maxthon фореве)

прямо в топик могу только я :) Опрос можно устроить только в определенных форумах, например в оффтопе, и только при создании сообщения, т.е. в ответах опросы ставить нельзя (я исключение :) ..). При создании темы надо выбрать форум оффтоп, установить галку "Создать опрос" и заполнить форму опроса (вопрос и ответы, а также период опроса (при необходимости)). Для браузеров лучше создать новый топик, собственно для этого я и сделал ограничение, которое не позволяет добавлять опросы в ответы других топиков.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 14 | Автор: Алексей
Добавлено:16.07.2007 / 06:05
А я на Visual Basic . NET программирую! : ))

Да действительно, нас куда-то не туда унесло :)) Вернемся в тему.

Я чаще всего работаю с ASP .NET с использованием синтаксиса VB .NET, хотя в последнее время частенько работаю с C#, поскольку он дает больше возможностей для «извращений», нежели VB .NET :) Могу точно сказать, что VB сам по себе простой язык, но это не значит, что он плохой или имеет ограниченные возможности, вовсе нет, он прост для понимания и освоения, а возможности у него такие же, как в шарпе. Конечно, не на все 100% :), но все, что можно сделать на C#, можно сделать и на VB .NET, как ни как, крестный папа у них один - Framework .NET )))
Я редко работаю с php, хотя он тоже довольно не плох, но в крупных проектах php я никогда не буду использовать, поскольку с .NET меньше геморроя :) Если сравнить, например классический ASP и php, то на мой взгляд, php конечно же круче классического ASP, а вот до .NET php еще далековато, да и вряд ли он когда-нибудь дойдет до такого уровня, как .NET. Это всего лишь мое мнение ;) Кто хочет оспорить, попробуйте доказать, что я не прав ;-)
Приложения, Win-сервисы и прочие dll-ки я тоже иногда разрабатываю, в последнее время предпочитаю использовать для этого дела C#, хотя это уже зависит от того, что нужно написать. Иногда выгодней, с точки зрения экономии времени и/или ресурсов, написать что-то на VB .NET, или даже на VB 6.0, а может и на C++, последний использовал всего пару раз :)
Ну а Delphi я уже очень давно не использую, не вижу в этом смысла, хотя, как и у любого другого языка программирования, у Delphi тоже есть свои плюсы и минусы.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Выбор checkbox'а в IE | Автор: MrLink
Добавлено: 14.07.2007 / 00:29 | ответов: 4 | просмотров: 21

Есть программа на VB которая открывает страницу в IE на которой находятся checkbox'ы и поле где можно выбрать формат получаемых данных:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
<tbody>
              <tr
valign="top">
                <td align="center" width="5%"><input value="7856486" name="BillNumber" type="checkbox"></td>

                <td width="45%">5863259</td>
                <td
width="50%">09.02.2005 - 30.03.2006<input value="09.02.2005 - 30.03.2006" name="BillNumberDates" type="hidden"></td></tr>
              <tr valign="top">
                <td align="center" width="5%"><input value="78536542" name="BillNumber"
type="checkbox"></td>
                <td width="45%">98756256</td>
                <td width="50%">09.02.2005 - 30.03.2006<input value="09.02.2005 - 30.03.2006" name="BillNumberDates" type="hidden"></td></tr>
</tbody>
<td>Формат:</td>
<td><select name="Format"> <option value="PDF" selected="selected">PDF</option><option value="HTML">HTML</option></select></td></tr>
<td colspan="3" align="center"><input value="Зарегистрировать" type="submit"></td>

Нужно выбрать только первый checkbox, выбрать формат HTML и нажать на кнопку "Зарегистрировать". Помогите плизз. Заранее благодарен

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:14.07.2007 / 03:57
Попробуйте передать все эти параметры в строке адреса, http://url/страница?Format=HTML, может поможет, если нет, то придется "захватывать" IE и программно искать элементы на странице и нажимать на кнопки :), но тут же возникает вопрос, что вы подразумеваете под IE, сам браузер или контрол WebBrowser? Если браузер, то что вы будете делать с остальными (FF, Opera и т.п.)? Если браузер не нужен, то можно и программно по работать, через HttpWebRequest и HttpWebResponse. Но прежде чем что-то делать, рекомендую проанализировать трафик на странице выбора формата и на следующей странице, которая открывается после нажатия на кнопку.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: MrLink
Добавлено:15.07.2007 / 20:36
Под IE я подразумеваю сам браузер(программа открывает сам браузер IE и в нем выполняет некие действия(переход, авторизация))
Остальные браузеры не нужны, нужен только IE.
Это сервет который работает по протоколу https, адрес станицы это cgi скрипт, который получает и передает данные.
Как можно проанализировать трафик?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Алексей
Добавлено:16.07.2007 / 05:51
Как можно проанализировать трафик?

любым локальным проксиком, например этим. Но это необходимо только при использовании HttpWebRequest и HttpWebResponse, т.е. без участия IE.

Раз нужен только IE, то надо копать в сторону управления другими приложениями..
Как это делается через API и какие апишки использовать, можно посмотреть здесь (конкретно FindWindow, SendMessage), правда, там примеры только для VB 6.0, но их легко можно перенести на .NET.
Конкретно для .NET, можно посмотреть здесь и здесь, возможно поможет..

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: MrLink
Добавлено:17.07.2007 / 20:13
Зачем искать окно, если я создаю обьект IE и потом в нем работаю(авторизуюсь, перехожу по ссылкам)?
С SendKey не получилось разобраться.
Можно как-нибудь обратится к этим checkbox'сам и отметить их, как например к полю, где я вводил логин и пас?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

ASP (Repeater and CheckBox) | Автор: Bille Gates
Добавлено: 13.07.2007 / 22:47 | ответов: 16 | просмотров: 26

Помогите... умираю... не знаю который раз сталкиваюсь с проблемой, и ниразу не нашел решения... только обходные пути...
Задача:
сделать нечто вроде интернет магазина, а точнее только 1 страницу, с выбором товаров, т.е. есть список товаров, а рядом галки(всё это реализованно с помощью баз и repeater), мне нужно определять, какие галки нажаты в момент нажатия пользователем кнопки(допустим добавить в корзину)... Думаю я понятно объяснил... Общался с EROSом, он посоветовал использовать коллекции... но точно как это делать ни я ни он не поняли(по крайней мере я точно не понял) мне кажется это что-то вроде голосований на kbyte т.е. выбрал ответы, поставил галки, и всё засчиталось в базу данных... вот нечто такое и надо...
Всем спасибо за внимание! :)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Igor
Добавлено:14.07.2007 / 00:50
Belle Gates, Круттто! Реальный вопрос! тоже интересно!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:14.07.2007 / 03:30
Если конкретно то, что на kbyte.ru в голосованиях в разделе голосования и на форуме, то там (и тут) используется "голый" JavaScript :)
Если Repeater содержит CheckBox, пользователь нажимает на кнопку и страница перезагружается, то можно обработать чекбоксы на сервере, для этого можно (нужно) полистать коллекцию итемов у repeater и найти все чекбоксы через FindControl("имя контрола"), или полистать коллекцию контролов:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
For Each c As Control In Repeter.Controls
If c.ID.StartWiths("имена всех чекбоксов в рипеатере начинаются с того что здесь написано") Then
  'можно и тип проверить, но я обычно по идишнику проверяю, этого достаточно
  If CType(c, CheckBox).Checked Then
    Response.Write("Ты не поверешь, но CheckBox с именем " & c.ID & " выбран! И что мне теперь с ним делать??<br />")
  End If
End If
Next

Colorized by: Eros.CodeSyntaxColor Engine

а вот как через финдконтрол:

001:
002:
003:
004:
005:
006:
007:
008:
For I As Integer = 0 To Repeater1.Items.Count - 1
Dim c As Control = Repeater1.Items(0).FindControl("CheckBox" & i)
If c IsNot Nothing Then
   'найдено, делаем все свои дела, так же как и в примере выше.
End If
Next

Colorized by: Eros.CodeSyntaxColor Engine

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Bille Gates
Добавлено:14.07.2007 / 09:50
Попробовал оба способа... 1 ваабще не сработал... написал он следующее:
System.NullReferenceException was unhandled by user code
Message="Object reference not set to an instance of an object."
Source="App_Web_-jq4cxt7"
StackTrace:
at _Default.Page_Load(Object sender, EventArgs e) in C:\Documents and Settings\...\Default.aspx.vb:line 20
at System.Web.UI.Control.OnLoad(EventArgs e)
at System.Web.UI.Control.LoadRecursive()
at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)

Ошибка была на этой строке:

001:
002:
003:
If c.ID.StartsWith("CheckBox") Then

Colorized by: Eros.CodeSyntaxColor Engine

код самого чекбокса в репитере:

001:
002:
003:
004:
005:
006:
007:
<td>
<asp:CheckBox ID='CheckBox' runat="server" Checked='<%#isch(eval("id"))%>' />
</td>
</tr>
</table>
</ItemTemplate>
</asp:Repeater>

пробовал второй способ, он сработал, но он находит только 1 чекбокс... т.е. пишу следующее:

001:
002:
003:
004:
005:
006:
007:
008:
For I As Integer = 0 To Repeater1.Items.Count - 1
Dim c As Control = Repeater1.Items(0).FindControl("CheckBox")
If c IsNot Nothing Then
Response.Write(c.ID)
End If
Next

Colorized by: Eros.CodeSyntaxColor Engine

и он выдавал 2 id чекбоксов, но они были одинаковы "CheckBox"... ну я думал что так и надо, попробовал вставить код в tooltip чекбокса, чтобы проверить, не получилось, всего должно было быть 2 вырианта цифр в тултипе т.е. в первом чекбоксе цифра 1 а во втором 4, но он выдал цифру 1 два раза... вот я опять и в тупике :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Bille Gates
Добавлено:14.07.2007 / 09:52
а с FindControl("CheckBox" & i) ваабще не сработал... эффект тотже что и без I если id просто "checkbox" а если id checkbox1 то "CheckBox" & i) работает только 1 раз :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: Алексей
Добавлено:14.07.2007 / 10:07
Ошибка была на этой строке:

на IsNothing тоже надо проверять, хотя чекбоксы только в итемах, та что вполне возможно, что так просто первый способ не сработает..

пробовал второй способ, он сработал, но он находит только 1 чекбокс... т.е. пишу следующее:

001:
002:
003:
004:
005:
006:
007:
008:
For i As Integer = 0 To Repeater1.Items.Count - 1
Dim c As Control = Repeater1.Items(0).FindControl("CheckBox")
If c IsNot Nothing Then
Response.Write(c.ID)
End If
Next

Colorized by: Eros.CodeSyntaxColor Engine

ну ясен core, он у тебя будет только один чекбокс показывать :) ты у него больше и не просишь ;)

и он выдавал 2 id чекбоксов, но они были одинаковы "CheckBox"...

имя будет точно таким же как в Repeater-е, т.е. если ты не сделаешь его динамическим, то будет CheckBox1 (которое указал сам).

Это скрытый текст, он доступен только:
- пользователю: Bille Gates;

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: Алексей
Добавлено:14.07.2007 / 10:09
хотя это моя опечатка :) но мне можно ))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: Bille Gates
Добавлено:14.07.2007 / 11:07
да, спасибо... разобрался, всё сработало! :)
+ Алексей, а как ты сделал "внимательней код рисуй ;)" (ты понял что я имею в виду...) напиши в личку

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: Bille Gates
Добавлено:14.07.2007 / 14:28
For I As Integer = 0 To Repeater1.Items.Count - 1
Dim c As Control = Repeater1.Items(I).FindControl("CheckBox")
If c IsNot Nothing Then
Dim cc As CheckBox = c
If cc.Checked = True Then
dco.InsertOrder("1", cc.ToolTip)
Else
dco.DelOrder(cc.ToolTip)
End If
End If
Next

код не работает... т.е. ошибки не выдает, но не определяет что чекбокс отмечен галкой... в любом случае выдает что все чекбоксы не отмечены галкой... почему не понимаю... событие происходит в LinkButton

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 9 | Автор: Алексей
Добавлено:14.07.2007 / 14:39
код не работает...

не бывает такого :)

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
For i As Integer = 0 To Repeater1.Items.Count - 1
Dim c As Control = Repeater1.Items(i).FindControl("CheckBox")
If c IsNot Nothing Then
  Dim myCheckBox As CheckBox = CType(c, CheckBox)
  If myCheckBox.Checked Then
   dco.InsertOrder("1", myCheckBox.ToolTip)
  Else
   dco.DelOrder(myCheckBox.ToolTip)
  End If
End If
Next

Colorized by: Eros.CodeSyntaxColor Engine

но не определяет что чекбокс отмечен галкой...

и такого не бывает :)

событие происходит в LinkButton

в каком линкабатоне, где он находится? Сам по себе, или в Repeater-е? У тебя явно проблемы с построением работы приложения. Если ты загружаешь данные в Repeater из БД, то видимо ты их грузишь и после постбака (Page.IsPostBack) и естественно данные в Repeater обновляется. Т.е. когда ты нажимаешь на кнопку (или еще что-нибудь), срабатывают все события Page, а затем уже обработчик нажатия кнопки. Если линкабатон лежит в Repeatere, то лучше привинти к нему (линкабатону) свойства CommandName и CommandArgument и обрабатывай в событие Repeater_ItemCommand (e.CommandName и e.CommandArgument сам решай, какие данные в них пихать).

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 10 | Автор: Алексей
Добавлено:14.07.2007 / 14:43
зы: уже +0,5% итого 3,5% ;-)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 11 | Автор: Bille Gates
Добавлено:14.07.2007 / 14:51
линк баттон не в репитере.... тогда как?

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Repeater1.DataSource = ASQL.GetTable("SELECT * FROM Price")
    Repeater1.DataBind()
  End Sub

  Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
    If IsPostBack Then
      Dim dco As New DimsCreateOrders
      For I As Integer = 0 To Repeater1.Items.Count - 1
        Dim c As Control = Repeater1.Items(I).FindControl("CheckBox")
        If c IsNot Nothing Then
          Dim cc As CheckBox = c
          If cc.Checked = True Then
            dco.InsertOrder("1", cc.ToolTip)
          Else
            dco.DelOrder(cc.ToolTip)
          End If
        End If
      Next
    End If
  End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 12 | Автор: Алексей
Добавлено:14.07.2007 / 15:00
001:
002:
003:
004:
005:
Protected Sub Page_Load _
(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Repeater1.DataSource = ASQL.GetTable("SELECT * FROM Price")
    Repeater1.DataBind()
End Sub

001:
002:
003:
004:
005:
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
  If IsPostBack Then
   Dim dco As New DimsCreateOrders

Colorized by: Eros.CodeSyntaxColor Engine

немного не туда ты его засунул. IsPostBack = True, когда страница "перезагружается" (например, на кнопку нажал юзер, или еще что-то сделал, что вызвало постбак). Следовательно, тебе надо грузить данные в Repeater, когда Not IsPostBack, и никак иначе ;)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 13 | Автор: EROS
Добавлено:14.07.2007 / 16:10
Общался с EROSом, он посоветовал использовать коллекции... но точно как это делать ни я ни он не поняли

Во-первых... никогда не стоит ссылаться на кого-то без разрешения такового..
Во-вторых, что значит ни я ни он ни поняли? Ты хочешь сказать, что я ни в состоянии определить какие из CheckBox'ов были нажаты??? Хм... То, что я не дал в асе тебе прямого ответа сделай то-то и то-то, не говорит о том, что я не знаю как это сделать..
В-третьих, я не обязан держать в голове устройство каждого контрола,.. принципы работы с любым из них - абсолютно одинаковы!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 14 | Автор: Bille Gates
Добавлено:14.07.2007 / 16:15
всё, со всем разобрался...!!!! ура... спасибо большое....!!!!

Это скрытый текст, он доступен только:
- пользователю: Алексей;
- пользователю: Bille Gates;

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 15 | Автор: Bille Gates
Добавлено:14.07.2007 / 16:23
Во-первых... никогда не стоит ссылаться на кого-то без разрешения такового..
Во-вторых, что значит ни я ни он ни поняли? Ты хочешь сказать, что я ни в состоянии определить какие из CheckBox'ов были нажаты??? Хм... То, что я не дал в асе тебе прямого ответа сделай то-то и то-то, не говорит о том, что я не знаю как это сделать..
В-третьих, я не обязан держать в голове устройство каждого контрола,.. принципы работы с любым из них - абсолютно одинаковы!

1-с этим согласен... тут я был не прав...
2-я не понял, а ты не объяснил, у меня сложилось впечатление что ты этого не знал, но у нас что, нельзя высказывать свое мнение и 2, я сразу сказал что "по крайней мере я не понял", а из этого следует что я не писал что ты неумеха, возможно ты просто не захотел отвечать...
3-тут ты прав... я тоже не держу...(хотя оч. сильно стараюсь)

PS если обидел(вот этим словом я мог тебя ещё больше обидеть, т.к. ты можешь сказать что ты не ребенок чтобы обижаться итп) или ещё что-то, то извини... в след. раз буду спрашивать разрешение(если конечно следующий раз будет)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 16 | Автор: Алексей
Добавлено:15.07.2007 / 04:55
Это скрытый текст, он доступен только:
- пользователю: Bille Gates;

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Компактирование базы Access в VB.NET | Автор: Korkinet
Добавлено: 12.07.2007 / 19:16 | ответов: 1 | просмотров: 13

Собственно в этом и вопрос. Как мне это сделать, то что в DAO делалось с помощью функции CompactDatabase?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: EROS
Добавлено:13.07.2007 / 09:53
Боюсь огорчить Вас, но никак... Я года 3 назад занимался этой проблемой, но удалось только выяснить то, что в NET нету подобных средств.. Единственный выход, это по прежнему использовать для этих целей DAO.. Как не прискорбно но прийдется ее с собой таскать.. Лично я предпочел отказаться (только по этой причине) от Access и перешел на SqlExpress

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1568

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1531

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2896

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

Visual Basic .NET: Работа с файлами
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 04.10.2006 / 10:35 | просмотров: 3603

В этой статье мы поговорим о работе с файлами. Научимся добавлять и удалять файлы/каталоги, записывать и читать данные из файла и.т.д.

ASP .NET 2.0: Эталонные страницы
Автор: Немиро Алексей | добавлено: 27.08.2006 / 04:08 | просмотров: 2827

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. ASP .NET 2.x предлагает уникальный метод создания одинаковой разметки для страниц сайта – это использование, так называемых, эталонных страниц. Если вы работали с ранними версиями ASP(ASP, ASP .NET 1.x), то, наверное, помните, что постоянно приходилось копировать H...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Проверить корректность E-Mail (стандартный способ)
Дата добавления: 21.08.2006 / 20:23 | просмотров: 505 | платформа: ASP .NET (VB)

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:20 | просмотров: 791 | платформа: ASP

Как сделать, чтобы при «редиректе» сервер выдал 301 код статуса, а не 302?
Дата добавления: 31.07.2006 / 13:50 | просмотров: 550 | платформа: ASP .NET (VB)

Как узнать текущее разрешение экрана?
Дата добавления: 24.03.2007 / 12:25 | просмотров: 239 | платформа: VB .NET

Как получить список файлов из определенной директории?
Дата добавления: 24.03.2007 / 12:30 | просмотров: 323 | платформа: VB .NET

Как программно изменить дату в Calendar?
Дата добавления: 25.03.2007 / 08:33 | просмотров: 229 | платформа: ASP .NET (VB)

Как переключиться в любое окно?
Дата добавления: 31.07.2006 / 12:51 | просмотров: 468 | платформа: VB

Как расчитать возраст из даты рождения?
Дата добавления: 24.03.2007 / 12:06 | просмотров: 92 | платформа: VB .NET

Получение имен классов и всех заголовков доступных окон системы
Дата добавления: 31.07.2006 / 12:50 | просмотров: 480 | платформа: VB

Как «залить» форму определенным фоном?
Дата добавления: 31.07.2006 / 12:09 | просмотров: 433 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Купил мужик мышь для компа оптическую. Круто! В руководстве написано - работает на любой поверхности...
Повозил по столу - работает!
...по бумаге - работает!!
...по линолеуму - работает!!!
Что бы ещё попробовать?
По ЗЕРКАЛУ!!!! - "Обнаружено новое устройство..."

Рейтинг: 42
Всего голосов: 56