Рассылка закрыта
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Программирование (VB,C#,ASP,.NET): новости, советы, примеры
Выпуск # 691Очередной выпуск рассылки! За последнее время на сайте произошло столько всего, столько всего, что все просто не уместилось в этот выпуск! Но ничего, ведь вы всегда можете ознакомиться со всеми обновлениями непосредственно посетив сайт. Кстати, помимо изменения в содержании Kbyte.Ru, появлении новых интересных материалов, проект постоянно совершенствуется технически, и вы можете принять в этом непосредственное участие, присылая свои идеи и предложения. Содержание выпускаЧитайте в этом выпуске: Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.Форумы Kbyte.RuНа форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки. Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий. Задать свой вопрос прямо сейчас Кнопочная форма в access @vkor09 21.06.2012 13:15 Здравствуйте! Подскажите пожалуйста! Я сделала в access несколько таблиц с полями ole. Потом создала при помощи диспетчера
кнопочных форм главную кнопочную форму. С кнопочками. Мне надо чтоб при нажатии на кнопку открывалась соответствующая таблица и из поля ole можно было открывать вложенные файлы. Так можно сделать? Я уже всю тех поддержку прочитала и пару форумов. Но так и не нашла ответ. Помогите ) Вопрос @fruksik1465 21.06.2012 02:05 У меня следующий вопрос. Вот смотрите: Есть Text1 / Command1 / Label1 Когда я ввожу в текс слово и нажимаю на Command1 , то если это словно совпадает с тем что написано в Label1 тогда Command2.Visible = True If Text1.Text = Label.Caption then Command2.Visible = True end if _____________________________________________________________________ А если Text1 Несовпадает с Label1 то Command3.Visible = True If Text1.Text НЕ РОВНО Label1.Caption then Command3.Visible = True end if Дак вот как выразить это " НЕ РОВНО" на языке VB? Ответ #1 @Edlin 21.06.2012 08:59 Попробуй "<>". Ответ #2 @fruksik1465 21.06.2012 12:42 Ну дак а если там буквами будет написано? Ответ #3 @Shark1 21.06.2012 15:21 Ответ #4 @Aleksey Nemiro 21.06.2012 16:35 Еще, в случаях, когда что-то совпадает, а что-то нет, можно использовать Else: If Text1.Text = Label.Caption Then Command2.Visible = True Else Command3.Visible = True End If Вопрос по теме : "Прокси-сервер – это просто!" C# @Sega71 20.06.2012 19:07 Здравствуйте, уважаемые форумчане и Алексей Немиро, вопрос собственно к Вам, как к автору темы "Разработка прокси-сервера на C#". Меня интересует такой вопрос: "Почему, при запущенном проки сервере, с компьютера на котором он(прокси сервер) запущен я могу с ним соединиться(пример: 127.0.0.1:8888), а с другого компьютера нет, хотя я знаю внешний IP компьютера на котором запущен прокси и порт(пример: 95.139.ххх.ххх:8888), который слушает прокси сервер?..." Ответ #1 @Aleksey Nemiro 20.06.2012 19:41 Нужно слушать порт по необходимому IP: TcpListener myTCP = new TcpListener(IPAddress.Parse("95.139.ххх.ххх"), 8888); Нужно убедиться, что никто и ничто не блокирует прослушиваемые порты. Например, некоторые провайдеры, могут блокировать порты пользователей в целях безопасности. Это на случай, если прокси-сервер является обычным домашним компом. Ответ #2 @Sega71 20.06.2012 20:09 Aleksey Nemiro, Спасибо за ответ но при таком коде я получаю ошибку "Требуемый адрес для своего контекста неверен" Мой рабочий код код: void listen() { listener.Bind(new IPEndPoint(0, port)); listener.Listen(100); } void listen() { listener.Bind(new IPEndPoint(IPAddress.Parse("95.139.ххх.хх"), port)); listener.Listen(100); } Wpf и многопоточность @Сергей
19.06.2012 16:31 Вроде и не впервой имею дело с кросс-поточностью, но в WPF натыкаюсь на обычные с виду проблемы. Необходимо с web сервера загрузить несколько десятков (может быть и сотен) изображений по 5-6 КБ, и позже отобразить их пользователю. Естественно, чтоб делать это быстрее и не вешать пользовательский интерфейс, хочу создать несколько параллельных потоков. Но вот незадача: я создаю объект BitmapSource в потоке, котором загружаю изображение. Чтоб оно оказалось на экране, я, используя метод this.Invoke() переключаюсь в UI поток. Но с него не имею доступа к самому BitmapSource, т.к. получаю Exception "Вызывающий поток не может получить доступ к данному объекту, так как владельцем этого объекта является другой поток". То есть доступ к элементам окна у меня есть, но вот к самому загруженному изображению нет. Подскажите как добиться нужного результата? Заранее спасибо Ответ #1 @Shark1 22.06.2012 02:01 Тут не очень все понятно ,но попробуй покопать в сторону :System.Threading.Monitor Помогите пожалуйста справится с задачей VB @Vikta 19.06.2012 16:07 Задача заключается в следующем: нужно ввести
3 слова и выделить красным слова, которые начинаются и заканчиваются на одну и ту же букву. Контр+альт+дел @fruksik1465 18.06.2012 16:54 А вот
у меня еще 1 вопрос возник. Как заблокировать 3 волшебные кнопочки на компьютере ? (Ctrl+Alt+delete) Ответ #1 @Shark1 18.06.2012 19:01 Ответ #2 @fruksik1465 18.06.2012 22:04 Я искал Честно :) Ответ #3 @fruksik1465 18.06.2012 22:11 Ответ #4 @Shark1 18.06.2012 23:47 Ответ #5 @Shark1 19.06.2012 00:18 Ты давай заканчивай с Visual Basic 6.0 ... Добавить свой ответ в эту тему · В теме есть еще 7 ответов. Смотреть все ответы. В VB6 нет контрола TreeView @Ципихович Эндрю 18.06.2012 03:17 Здравствуйте, если в VB6 нет контрола TreeView, его не добавить, нет его в списках, нужно видимо файл? какой? есть у кого? или дайте ссылку, спасибо Ответ #1 @Aleksey Nemiro 18.06.2012 12:03 Меню Проект =>
Компоненты (Project => Components) и найти там, если не изменяет память, Windows Common Controls. Ответ #2 @Ципихович Эндрю 18.06.2012 13:33 В 10 ку, спасибо!!!!!!!! Ответ #3 @Ципихович Эндрю 18.06.2012 14:18 Может чтобы не создавать ветку подскажете как программно считать со всего TreeView, всё его содержимое при помощи For Each - я понимаю, что на русском языке это будет Dim ЭлементКоллекции AS ТипЭлементаКоллекции For Each ЭлементКоллекции In Коллекция MsgBox ЭлементКоллекции.Index Next как это объявить не знаю Ответ #4 @Ципихович Эндрю 18.06.2012 19:30 Разобрался Здравствуйте.Необходимо удалить нарисованную на picturebox линию по нажатию мыши на неё.Известны начальная точка и конечная точка линии(Point p1,Point p2).С удалением точек на контроле все просто-у каждой созданной точки создаём объект rectangle,и если координаты нажатой на picturebox точки попадает в один из rectanglов,то удаляем её.А как создать прямоугольную область на линии,если известны точка начала и конца?Ведь объект rectangle строится по координате нижнего
левого угла,ширины и высоты...Можно пример создания прямоуг области у линии пожалуйста. Ответ #1 @Edlin 18.06.2012 11:46 WinForms использует специфическую модель рисования. На самом деле тебе нужно хранить в каком-нибудь списке все
твои фигуры, которые ты хочешь отрисовывать. У тебя там будут точки, линии, прямоугольники, круги, ... В событии Paint твоего picturebox ты все это рисуешь на экран. Если тебе нужно что-то удалить, то ты удаляешь этот объект (точку, линию, ...) из твоего списка. А затем вызываешь метод picturebox. Invalidate(). Система сама вызовет после этого событие Paint, где ты отрисуешь все оставшееся в списке. Подход с покрытием точек и прямых прямоугольниками для того, чтобы скрыть их - IMHO неправильный. Demo -приложения @Леонид 16.06.2012 23:16 Здравствуйте!Подскажите начинающему.Создал приложение, на VB6? теперь хочу сделать из него Demo версию и чтобы раскрывало свои возможности по определенному ключу. Какова технология? и если можно с кусочком примера! Спасибо... Ответ #1 @Shark1 17.06.2012
01:19 Посмотрите тут : А вообще проще для Вас просто сделать два проэкта ,один из которых полная версия, а второй демо версия. И мой Вам совет пока не поздно начинайте изучать другой язык (VB.Net, C# или С). Может я ошибаюсь ... Ответ
#2 @Леонид 17.06.2012 08:48 Спасибо за ответ, но в чем же приемущество (VB.Net, C# или С)? И на какой проще перейти с VB6? Ответ #3 @Shark1
17.06.2012 10:17 Особой разницы в языках нет ( VB.Net, C# - они опираются на одну платформу), отличие будет только в управляющих конструкциях таких как: циклы, операторы условного перехода, объявление переменных и то только на синтаксическом уровне. С - сложнее. У C# преимущество в том плане, что он более востребован на просторах СНГ. За границей например, VB.Net в большем почете. VB.Net или С# - думаю это то что Вам нужно. Ну и конечно все зависит от самого желания этим заниматься. Удачи. Cookies_куки @i32 16.06.2012
11:53 Привет всем .Подскажите как можно объединить куки которые присылает сервер и которые выполняются на моей стороне.У меня куки с сервера приходят в КОНТЕЙНЕР а другие я отправляю сам Но вместе они не отправляются.. Dim cuc4 As String = "__utma=119638039.1726595004.1335979897.1335979897.1335979897.1" req.ServicePoint.Expect100Continue = False req.Method = "POST" req.CookieContainer = tempCookies req.Headers.Add("Accept-Charset", chs) req.Headers.Add("Cache-Control", wer) req.ContentType = "application/x-www-form-urlencoded" req.Headers.Add("Cookie", cuc4) resp = req.GetResponse tempCookies.Add(resp.Cookies) logincookie = tempCookies str = resp.GetResponseStream() Спасибо... Ответ #1 @Aleksey Nemiro 16.06.2012 12:37 В старенькой статейке "Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)" я как раз описывал ручной метод отправки куков, без контейнера (см. раздел "Кодинг"). Сервер отдает куки в заголовке Set-Cookie. Dim sCookies As String = "" 'переменная для хранения куков If Not String.IsNullOrEmpty(myHttpWebResponse.Headers("Set-Cookie")) Then sCookies = myHttpWebResponse.Headers("Set-Cookie") End If If Not String.IsNullOrEmpty(sCookies) Then myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie, sCookies) End If Ответ #2 @i32 16.06.2012 13:35 В таком варианте все прописывается досконально.Слово path Тоже отправляется. Получается 1 = кук нормальный все последующие path / . Бардак .Как тогда подчистить все.. В конце каждого приходящего кука стоит не нужное слово .КОНТЕЙНЕР его не пишет. web-cluster=; Expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/ Ответ #3 @Aleksey Nemiro 16.06.2012 15:14 Почистить можно регулярками: sCookies = New Regex("(\,)([\w\d])").Replace(sCookies, ";$2") sCookies = New Regex("((expires)|(path)|(domain))=([^\;]*)((;)|(\n?))").Replace(sCookies, "") Ответ #4 @i32 16.06.2012 17:21 Возьму к сведенью .. Хотя ту ЛЕС И ПАЛКИ..Написал обоиной Dim sFileContent1 As String = TextBox13.Text sFileContent1 = Regex.Replace(sFileContent1, "(path=/;)", "", RegexOptions.Multiline) TextBox13.Text = sFileContent1 Dim sFileContent2 As String = TextBox13.Text sFileContent2 = Regex.Replace(sFileContent2, "(path=/)", "", RegexOptions.Multiline) TextBox13.Text = sFileContent2 Dim ssCookies As String = "" ssCookies = TextBox13.Text Dim sFileContent3 As String = TextBox13.Text sFileContent3 = Regex.Replace(sFileContent3, "(domain=.depositfiles.com,)", "", RegexOptions.Multiline) TextBox13.Text = sFileContent3 Dim sssCookies As String = "" sssCookies = TextBox13.Text Dim sFileContent4 As String = TextBox13.Text sFileContent4 = Regex.Replace(sFileContent4, "(lang_current=ru,)", "", RegexOptions.Multiline) TextBox13.Text = sFileContent4 Dim Cookies4 As String = "" Cookies4 = TextBox13.Text Спасибо.. Исходные кодыResource Installer ExampleVisual Basic .NET: Общие вопросы @Shark1 16.06.2012 21:03 Пример извлечения ресурсов проекта. Взяв за основу идею примера можно сделать установщик (installer) для ваших программ. К данном исходному коду прилагаются файлы примеров. Скачать. Одна форма внутри другойVisual Basic 5.0/6.0: Окна и формы @Артем Федоров 15.06.2012 22:30 Пример показывает как можно запустить одну форму внутри другой.'Поместить в Form1 Private Declare Function SetParent _ Lib "user32" (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long Private Sub Form_Load() Form2.Show SetParent Form2.hWnd, Form1.hWnd 'выравниваем форму2 по центру Form2.Move (Form1.ScaleWidth - Form2.Width) / 2, _ (Form1.ScaleHeight - Form2.Height) / 2 End Sub Проигрывание файлов mp3 в программеVisual Basic 5.0/6.0: Звук @Артем Федоров 15.06.2012 22:25 Пример показывает как можно воспроизводить файлы mp3 в своей программе.Option Explicit Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" (ByVal lpszCommand As String, _ ByVal lpszReturnString As String, _ ByVal cchReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Public Function MP3_Play(ByVal sFile As String, _ ByVal sAlias As String) As Boolean Dim bResult As Boolean Dim sBuffer As String Dim lResult As Long sBuffer = Space$(255) lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer)) If lResult <> 0 Then sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) lResult = mciSendString("open " & sFile & _ " type MPEGVideo alias " & sAlias, 0, 0, 0) If lResult = 0 Then If mciSendString("play " & sAlias & _ " from 0", 0, 0, 0) = 0 Then bResult = True End If End If End If MP3_Play = bResult End Function Public Sub MP3_Stop(ByVal sAlias As String) mciSendString "stop " & sAlias, 0, 0, 0 mciSendString "close " & sAlias, 0, 0, 0 End Sub Private Sub Command1_Click() MP3_Play "G:\song.mp3", "MyAlias" End Sub Private Sub Command2_Click() MP3_Stop "MyAlias" End Sub Игра "Быки и Коровы"Visual Basic 5.0/6.0: Разработка игр @Артем Федоров 15.06.2012 22:15 Простой пример создания игры "Быки и Коровы" с 5-тизначными числами.VERSION 5.00 Begin VB.Form Form1 Caption = "Быки и коровы" ClientHeight = 3120 ClientLeft = 120 ClientTop = 450 ClientWidth = 4920 LinkTopic = "Form1" ScaleHeight = 3120 ScaleWidth = 4920 StartUpPosition = 3 'Windows Default Begin VB.Frame Frame1 Caption = "Правила игры" Height = 1935 Left = 2160 TabIndex = 7 Top = 0 Width = 2655 Begin VB.TextBox Text1 Height = 1575 Left = 120 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 8 Text = "Bulls&Cows.frx":0000 Top = 240 Width = 2415 End End Begin VB.CommandButton restart Caption = "Перезагадать" Height = 495 Left = 0 TabIndex = 6 Top = 1560 Width = 2055 End Begin VB.CommandButton show Caption = "Показать" Height = 255 Left = 0 TabIndex = 5 Top = 480 Width = 2055 End Begin VB.TextBox Text2go Height = 405 Left = 0 MaxLength = 5 TabIndex = 2 Top = 720 Width = 2055 End Begin VB.TextBox log Height = 975 Left = 0 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 1 Top = 2040 Width = 4815 End Begin VB.CommandButton BtnGo Caption = "Проверить" Height = 495 Left = 0 TabIndex = 0 Top = 1080 Width = 2055 End Begin VB.Label complabel AutoSize = -1 'True Caption = "*****" Height = 195 Left = 600 TabIndex = 4 Top = 240 Width = 300 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "Компьютер загадал число" Height = 195 Left = 0 TabIndex = 3 Top = 0 Width = 2010 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim doo As Integer 'до скольки Dim ot As Integer 'от скольки Dim compstr As String 'строка содержит в себе задуманное компом число Dim Bull As Integer ' кол-во быков Dim Cow As Integer 'кол-во коров Dim CowName As String 'для красоты отображения Dim BullName As String 'тоже самое Dim current As String 'текущая цифра Dim curpos As Integer 'текущая позиция Dim curcomppos As Integer 'позиция у компа Public Sub Random() Randomize 'рандом ot = 1111 doo = 9999 Randstr = Int((doo - ot + 1) * Rnd + ot) 'генирирует 4-х значное число тк 5-ти уже слишком много ему compstr = Randstr & Int(Rnd() * 9) 'совмещаем randstr и случайное число от 0 до 9 complabel.Caption = "*****" 'скрываем число End Sub Private Sub FindBullCow(ByVal UserString As String) 'ищем ' MsgBox InStr(1, "где ищем", "что ищем") 'вернет 0 если строка не найдена если >0 значит найдена Cow = 0 Bull = 0 For i = 1 To 5 current = Mid(UserString, i, 1) curpos = InStr(1, UserString, current) curcomppos = InStr(1, compstr, current) If curpos = curcomppos Then ' если номер позиции совпадает с позицией у компа значит это бык Bull = Bull + 1 End If If curpos <> curcomppos And curcomppos <> 0 Then ' иначе это корова Cow = Cow + 1 End If Next i ' для грамотности делаем обработку чисел If Cow = 1 Then CowName = " Корова" ElseIf Cow = 0 Or Cow = 5 Then CowName = " Коров" ElseIf Cow > 1 < 5 Then CowName = " Коровы" End If If Bull = 1 Then BullName = " Бык" ElseIf Bull = 0 Or Bull = 5 Then BullName = " Быков" ElseIf Bull > 1 < 5 Then BullName = " Быка" End If 'конечный результат при выйгрыше If Bull = 5 Then result = "Вы угадали число компьютера " & compstr & vbCrLf MsgBox result, vbExclamation, "Win" Else result = "" End If log.Text = UserString & " -- " & Cow & CowName & " " & Bull & BullName & vbCrLf & result & log.Text & vbCrLf End Sub Private Sub BtnGo_Click() If Len(Text2go.Text) = 5 Then ' не даем проверять если число меньше 5-ти Call FindBullCow(Text2go.Text) Else MsgBox "Введите 5-ти значное число!", vbCritical, "Ошибка" End If End Sub Private Sub Form_Load() Call Random ' "придумываем число" End Sub Private Sub restart_Click() Call Random ' "придумываем число" End Sub Private Sub show_Click() complabel.Caption = compstr 'открываем число загаданное компьютером End Sub Private Sub Text2go_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BtnGo_Click 'если в текстовом поле нажмут Enter то эмулируем нажатие кнопки "проверить" End Sub Вакансии в ITПрограммист C++Россия, Нижний Новгород | Работа в офисе | 25 000.00
KBP ПрограммистРоссия, Нижний Новгород | Работа в офисе | 25 000.00 KBP Инженер разработчик цифровой аппаратурыРоссия, Ростов-на-Дону | Работа в офисе | 45 000.00 KBP Ведущий программист C#Россия, Ростов-на-Дону | Работа в офисе | 40 000.00 KBP Программист, электронщик, инженер конструкторРоссия, Ростов-на-Дону | Работа в офисе | 45 000.00 KBP Web программистРоссия, Ростов-на-Дону | Работа в офисе | 30 000.00 KBP ПрограммистРоссия, Екатеринбург | Работа в офисе Инженер-разработчикРоссия, Екатеринбург | Работа в офисе Java-разработчикРоссия, Екатеринбург | Работа в офисе Инженер-программист в отдел АСРРоссия, Екатеринбург | Работа в офисе Все вакансии в IT · Новости мира ITSamsung Electronics анонсировала на российском рынке мини-планшет Galaxy S WiFi 3.6
Компания Samsung Electronics сегодня анонсировала на российском рынке мини-планшет Galaxy S WiFi 3.6 (модель YP-GS1) в белом корпусе. Новая модель дополняет семейство Galaxy S WiFi, являясь самым компактным устройством в линейке. Размер сенсорного дисплея мини-планшета составляет 3,65 дюйма.
Новый мини-планшет позволяет играть в мобильные игры, загружать и устанавливать приложения из ассортимента магазинов Google Play и Samsung Apps. Для общения Samsung GALAXY S WiFi 3.6 оснащен фирменным сервисом «Социальный портал» (Social Hub). Он объединяет все пользовательские контакты, e-mail адреса, аккаунты в социальных сетях и мессенджерах в единый список. 21.06.2012 11:20 · Категория: Железо · Источник: CyberSecurity.ru Новая камера может делать снимки с разрешением 1 ГигапиксельГруппа американских инженеров объявила сегодня о создании экспериментального прототипа гигапиксельной камеры размером с тумбочку, но способную создавать изображения, которые в тысячу раз более детализированные, в сравнении со снимками самых передовых современных цифровых фотокамер. Отметим, что созданная на сей раз гигапиксельная камера не является первой в своем роде, но из всего, что было создано ранее, она считается самой компактной и быстрой.
Разработчики новинки говорят, что в ее производстве были задействованы технологии, которые можно применять в передовых камерах наружного наблюдения, системах военной разведки и даже онлайн-видеовещания. 21.06.2012 11:19 · Категория: Железо · Источник: CyberSecurity.ru Обнаружен троянец со встроенным чатомИсследователи из AVG обнаружили троянскую программу со встроенным чатом. Используя чат, автор троянца может писать текстовые сообщения своим жертвам. Диалог одного из сотрудников компании со злоумышленником закончился тем, что последний удаленно закрыл виртуальную машину AVG. 21.06.2012 11:17 · Категория: Безопасность · Источник: Lenta.ru
Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей: Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter. Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты. Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT. |
В избранное | ||