Программирование (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): новости, советы, примеры

Выпуск # 135

http://www.kbyte.ru/

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

Если у Вас возникнут какие-либо вопросы, замечания, пожелания или предложения, пишите, мы детально рассмотрим каждое Ваше сообщение – mailto: admin@kbyte.ru.

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

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

Вопрос #000212: Отправка и получение Почты

Вопрос #000209: Рисуем график

Вопрос #000206: Design-time support

Вопрос #000203: Программирование с использованием Win API (Visual Basic 6)

Вопрос #000198: Переключение_вкладок_в_TabStrip

Вопрос #000195: Числа учетверёрнной точности...

Вопрос #000194: Вопрос_экспертам

Вопрос #000189: VisualBasic_6.0_-_разрешение_экрана

Вопрос #000187: Как это делать!

Вопрос #000185: доступ к базе данных

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

Копирование наиболее нового файла из списка файлов

Реестр и win64

Программирование с использованием Windows API

Создание TCP - соединение на VB6

Зайдите по этой ссылке, очень интересный сайт!!

Медиа

Проблема с проектом, помогите!

Access DB

Конкурс на лучший пример кода!

MsSQL и ASP.NET

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

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

Работаем с MIME

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

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

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

Описание ошибок VB

Горячие клавиши VB 6.0

ASP .NET 2.0: Файл Global.asax

Как узнать страну по IP-адресу?

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word

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

Юмор на Kbyte.Ru

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

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

Вопрос #000212: Отправка и получение Почты

Автор вопроса: Игорь Голов // 14.05.2007 / 19:24

Здравствуйте, expert!

Как отправить и получить Почту, используя VB .NET 2005
Серверы требуют авторизации.

Спасибо!

-- 
С уважением,
Игорь Голов                         mailto:itshark@mail.ru

Отвечает: EROS // 14.05.2007 / 19:24

Встроенные средства МЫ позволяют только отправлять почту.. Для
получения придется писать что то свое.
Все необходимое для работы с почтой находится в System.Net.Mail
Для авторизации на сервере используйте свойство Credentials
Пример авторизации на сервере: (С#)

0002:

0003:

System.Net.Mail.SmtpClient smtp = new System.Net.Mail.SmtpClient("smtp.newmail.ru");

smtp.Credentials = new System.Net.NetworkCredential("myaccount@nm.ru", "mypassword");

-- 
С уважением,
 EROS                          mailto:eros@fromru.com

Отвечает: Алексей Немиро // 15.05.2007 / 05:11

Здравствуйте,

Вот код отправки почты средствами Framework .NET:

0001:

0002:

0005:

0006:

0007:

0008:

0009:

0011:

0012:

0013:

0014:

0016:

Imports System.Net

Imports System.Net.Mail

Dim myMsg As Net.Mail.MailMessage

myMsg = New Net.Mail.MailMessage("admin@kbyte.ru", "komu@kbyte.ru", "Мое письмо", "Привет! Это текст моего письма!")

myMsg.IsBodyHtml = False ' письмо текстовое

myMsg.BodyEncoding = Encoding.GetEncoding(1251) 'кодировка windows-1251

myMsg.SubjectEncoding = Encoding.GetEncoding(1251) 'кодировка windows-1251

Dim mySMTPServer As New Net.Mail.SmtpClient("smtp.myhost.ru", 25)

Dim myCredential As New System.Net.NetworkCredential("login", "password")

mySMTPServer.UseDefaultCredentials = False

mySMTPServer.Credentials = myCredential

mySMTPServer.Send(myMsg) 'отправляем письмо

Что касается получения почты, тут надо писать свой класс, используя
соккеты (Socket), придется также почитать информацию о протоколе POP3, главным
образом вам понадобятся команды:

USER - логин
PASS - пароль
STAT - запрос статистики ящика
TOP - получить заголовки указанного письма
RETR - получить указанное письмо
DELE - удалить указанное письмо
QUIT - завершить сессию

А также понадобится MIME-парсер, о том как его сделать, можно почитать
в моей статье: http://kbyte.ru/Articles/ShowArticle.aspx?id=44

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

Вопрос #000209: Рисуем график

Автор вопроса: "Anton" // 14.05.2007 / 12:54

Посоветуйте пожалуйста как мне нарисовать график на ASP.NETе, в коротом 
данные берутся из датагрида или таблицы.
На чем это вообще реально реализовать.
Если не трудно скинте ссылку на примеры или статьи этой тематьки.

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

Здравствуйте,

Нарисовать можно руками, для этого лучше использовать Handler - *.ashx

Готовые компоненты для построения графиков можно найти на сайте
http://asp.net , правда бесплатных не так много..


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

Отвечает: Анатолий Присяжнюк // 14.05.2007 / 16:12

Обратитесь к нам на сайт, где размещена статья по этому поводу:
http://kbyte.ru/Articles/ShowArticle.aspx?id=31 
Возможно она Вам поможет.
С уважением - АВП

Вопрос #000206: Design-time support

Автор вопроса: 5acred Phoenix // 13.05.2007 / 23:50

Доброе время суток, уважаемые Эксперты!

Мой вопрос касается .NET Framework 2.0 / VB2005. Я пытаюсь реализовать
у контрола свойство Items (наподобие тех, которые имеются у ListView и
пр.). В design-mode редактор коллекции появляется, добавлять элементы
в коллекцию можно. Только они не сохраняются (после билда проекта
исчезают). Как же всё-таки
сделать так, чтобы дизайнер генерировал код
для свойства Items?

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

Заранее благодарен за помощь.

-----
Faithfully yours,
5acred Phoenix <sacredphoenix[at]inbox[dot]ru>.

Sunday, May 13, 2007




Public Class ColorButton
   Inherits Button

   Private m_Items As New TaggedStringCollection

  Public ReadOnly Property Items() As TaggedStringCollection
      Get
         Return m_Items
      End Get
   End Property
End Class

<TypeConverter(GetType(TaggedStringTypeConverter))> _
Public Class TaggedString
   Implements System.Runtime.Serialization.ISerializable

   Private m_Value As String = String.Empty
   Public Property Value() As String
      Get
         Return m_Value
      End Get
      Set(ByVal value As
String)
         m_Value = value
      End Set
   End Property

   Private m_Tag As Integer = 0
   Public Property Tag() As Integer
      Get
         Return m_Tag
      End Get
      Set(ByVal value As Integer)
         m_Tag = value
      End Set
   End Property

   Public Overrides Function ToString() As String
      Return String.Format("""{0}"" with {1}", m_Value, m_Tag)
   End Function

   Public Sub New()

   End Sub

   Public Sub New(ByVal Value As String, ByVal Tag As Integer)
      m_Value = Value
      m_Tag = Tag
   End Sub

   Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, _
                            ByVal context As System.Runtime.Serialization.StreamingContext) _
                            Implements System.Runtime.Serialization.ISerializable.GetObjectData
      info.AddValue("Value",
m_Value)
      info.AddValue("Tag", m_Tag)
   End Sub
End Class

Public Class TaggedStringCollection
   Inherits System.Collections.CollectionBase

   Public Function Add(ByVal item As TaggedString) As Integer
      Return Me.List.Add(item)
   End Function

   Public Function Add(ByVal value As String, ByVal tag As Integer) As Integer
      Dim item As New TaggedString(value, tag)
      Return Me.Add(item)
   End Function

   Default Public Property Item(ByVal index As Integer) As TaggedString
      Get
         Return CType(Me.List.Item(index), TaggedString)
      End Get
      Set(ByVal value As TaggedString)
         Me.List.Item(index) = value
      End Set
   End Property   

   ' ...
End Class

Public Class TaggedStringTypeConverter
   Inherits TypeConverter

   Public Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext,
_
                                          ByVal destinationType As System.Type) As Boolean
      If (destinationType Is GetType(InstanceDescriptor)) Then Return True
      Return MyBase.CanConvertTo(context, destinationType)
   End Function

   Public Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, _
                                       ByVal culture As System.Globalization.CultureInfo, _
                                
      ByVal value As Object, ByVal destinationType As System.Type) As Object
      If ((destinationType Is GetType(InstanceDescriptor)) AndAlso _
          (TypeOf value Is TaggedString)) Then
         Dim tgstr As TaggedString = CType(value, TaggedString)
         Dim ctor As ConstructorInfo = tgstr.GetType().GetConstructor(New System.Type() {GetType(String), GetType(Integer)})
         If (ctor IsNot Nothing) Then
            Return New InstanceDescriptor(ctor, New Object() {tgstr.Value,
tgstr.Tag}, False)
         End If
         'Dim method As MethodInfo = GetType(TaggedStringCollection).GetMethod("Add", New System.Type() {GetType(TaggedString)})
         'If (method IsNot Nothing) Then
         '   Return New InstanceDescriptor(method, New Object() {tgstr})
         'End If
      End If
      Return MyBase.ConvertTo(context, culture, value, destinationType)
   End Function
End Class

Отвечает: EROS // 13.05.2007 / 23:50

Вам необходимо для свойства Items использовать аттрибут DesignerSerializationVisibility

0002:

0003:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0013:

Public Class ColorButton

    Inherits Button

    Private m_Items As New TaggedStringCollection

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _

    Public ReadOnly Property Items() As TaggedStringCollection

        Get

            Return m_Items

        End Get

    End Property

End Class

P.S. Отключите Ваш TaggedStringTypeConverter это наверняка будет
вызывать ошибки. VS для редактирования свойства Items по умолчанию вызовет
CollectionEditor. В большинстве случаев этого достаточно..
-- 
С уважением,
 EROS                          mailto:eros@fromru.com

Вопрос #000203: Программирование с использованием Win API (Visual Basic 6)

Автор вопроса: Игорь Голов // 13.05.2007 / 15:48

Здравствуйте, expert!

Задача:

Формируется группа переключателей для выбора стилей простого редактора текста
(ES_AUTOHSCROLL, ES_AUTOVSCROLL, ES_LEFT, ES_RIGHT, ES_CENTER, ES_LOWERCASE,
ES_UPPERCASE, ES_PASSWORD, ES_NUMBER, ES_OEMCONVERT), две кнопки и статическое окно.
Нажатие на первую кнопку приводит к созданию многострочного текстового
редактора с
заданными стилями. Нажатие на вторую кнопку отображает выделенный пользователем текст
в статическом окне

Спасибо!

-- 
С уважением,
Игорь Голов                         mailto:itshark@mail.ru

Отвечает: Алексей Немиро // 13.05.2007 / 15:48

Здравствуйте,

Мало понятно, что требуется..

0001:

0002:

0003:

0004:

0005:

0007:

0008:

0009:

0010:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

    private void button1_Click(object sender, EventArgs e)

    {

      richTextBox1.ScrollBars = RichTextBoxScrollBars.Vertical;

      richTextBox1.Font = new System.Drawing.Font("Arial", 14, FontStyle.Italic | FontStyle.Bold);

    }

    private void button2_Click(object sender, EventArgs e)

    {

      richTextBox1.ScrollBars = RichTextBoxScrollBars.None;

    }

    private void button3_Click(object sender, EventArgs e)

    {

      Form myForm = new Form();

      Label myLabel = new Label();

      myLabel.Text = richTextBox1.SelectedText;

      myForm.Controls.Add(myLabel);

      myForm.Show();

    }

И в следующий раз, пожалуйста, не забывайте указывать язык, на котором
требуется это сделать.

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

Отвечает: Алексей Немиро // 13.05.2007 / 15:59

Здравствуйте,

Эх.. Опять язык в теме указали, на тему мы практически не смотрим,
только если на сайт (http://kbyte.ru/Expert/ ) заходим :))
В теле письма тоже надо указывать язык ;-)
А в теме надо отражать краткое содержание вопроса, это необходимо,
чтобы было удобней искать вопрос, тем у
кого он возникает, точнее тем,
у кого возникает подобный вопрос ;)

В принципе все что я ранее написал, легко делается на 6 бэйсике.

0001:

0002:

0003:

0005:

0006:

0007:

0008:

0009:

0010:

0012:

0013:

0014:

Private Sub Command1_Click()

  RichTextBox1.Font.Bold = True

End Sub

Private Sub Command2_Click()

  RichTextBox1.SelStart = 7

  RichTextBox1.SelLength = 9

  RichTextBox1.SelColor = RGB(255, 0, 0)

  MsgBox RichTextBox1.SelText

End Sub

Private Sub Form_Load()

  RichTextBox1.Text = "http://kbyte.ru"

End Sub

Если Вы не получили ответ, попробуйте обратиться в наш форум, там мы
сможем более детально рассмотреть этот вопрос http://kbyte.ru/form
Либо задайте вопрос повторно, но более подробно распишите что
требуется, хотя, в полне вожможно, что другие Экспреты еще могут
написать ответ сюда.

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

Вопрос #000198: Переключение_вкладок_в_TabStrip

Автор вопроса: Сергей // 13.05.2007 / 12:38

Добрый день,

Но не могли бы вы описать как, в режиме разработки
проекта, можно переключать вкладки в TabStrip на Visual Basic 6.0,
просто кликнуть на ней не получается, а как же тогда добавлять
элементы на вкладку.

                                Спасибо.

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

Здравствуйте,

Разместите на форме элемент TabStrip и вставьте следующий код:

0001:

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0013:

Private Sub Form_Load()

  'on error resume next

  'добавляем 10 вкладок

  Dim i As Long

  TabStrip1.Tabs.Clear

  For i = 0 To 9

    TabStrip1.Tabs.Add , , "Вкладка " & CStr(i + 1)

  Next i

  MsgBox "Добавлено 10 новых вкладок, нажмите Ok, и мы виберем 3 вкладку", vbInformation

  TabStrip1.Tabs(3).Selected = True

End Sub

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

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

Здравствуйте,

В режиме разработки в Visual Basic 6.0 это не возможно, да и смысла не
имеет.


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

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

Здравствуйте,

Наконец-таки дочитал конец вопроса :)))

Размещать элементы непосредственно на вкладках TabStrip также
не возможно, для этого нужно создать какой-нибудь контейнер, например
Frame. Для простоты работы с контейнерами, нужно установить им
(контейнерам) свойство Index равное индексу вкладки. Т.е.
сколько
вкладок, столько и контейнеров.
Также, в Visual Basic 6.0 существует более "продвинутый"
TabStrip - SSTab, который позволят делать все визуально, о чем Вы
спрашивали. Найти его можно в меню Проект => Компоненты
(Project => Components) и в появившемся окне найдите Microsoft Tabbed Dialog Control 6.0.



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

Вопрос #000195: Числа учетверёрнной точности...

Автор вопроса: Sergey1650 // 12.05.2007 / 12:10

Здравствуйте Эксперт. Подскажите, пожалуйста, как в Microsoft Visual Basic 6.0 можно (если можно) работать с числами учетверённой точности ну или, например, такими как 1e+2381
Если в VB6 перемножить два числа 1e+300 и 1e+300 то получается: Error 6 (переполнение) а должно быть 1e+600.
Помогите пожалуйста если это возможно в VB6.

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

Здравствуйте,

Нет ничего не возможного ;)

*** Код модуля:

0001:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0029:

0030:

0031:

0032:

0033:

0034:

0035:

0036:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0046:

0047:

0048:

0049:

0050:

0051:

0052:

0053:

0054:

Option Explicit

Public Function MultTrah(ByVal N1 As String, ByVal N2 As String) As String

    On Error Resume Next

    Dim A() As Byte, B() As Byte, C() As Byte

    Dim Tmp As String, I As Long, L As Long, K As Long, J As Long

    If Len(N2) > Len(N1) Then

       Tmp = N1

       N1 = N2

       N2 = Tmp

    End If

    'iioeiece?iaaou anee ii?ii! Oaeea o?oaiinoe n ianneaii aicieea?o ec-ca calculation

    L = Len(N1)

    ReDim A(1 To L + 2 * (Len(N2) - 1))

    For I = 1 To L

        A(Len(N2) - 1 + I) = CByte(Mid$(N1, I, 1))

    Next

    L = Len(N2)

    ReDim B(1 To L)

    For I = 1 To L

        B(L - I + 1) = CByte(Mid$(N2, I, 1))

    Next

    L = Len(N1) + L

    ReDim C(1 To L)

    ''' Calculation

    L = Len(N1) + Len(N2) - 1

    K = Len(N2)

    For I = L To 1 Step -1

        For J = 1 To K

            If A(I + J - 1) * B(J) <> 0 Then

               C(I + 1) = C(I + 1) + A(I + J - 1) * B(J)

               C(I) = C(I) + Int(C(I + 1) / 10)

               C(I + 1) = C(I + 1) Mod 10

            End If

        Next

        C(I + 1) = C(I + 1) + 48

    Next

    C(1) = C(1) + 48

    ''' End Calculation

    Tmp = StrConv(C, vbUnicode)

    I = InStr(Tmp, Chr(0))

    If I > 0 Then Tmp = Left$(Tmp, I - 1)

    MultTrah = ResetZero(Tmp)

End Function

Public Function ResetZero(ByVal N1 As String) As String

    On Error Resume Next

    Dim I As Long, Tmp As String

    For I = 1 To Len(N1)

        If Mid$(N1, I, 1) <> "0" Then Exit For

    Next

    Tmp = Right$(N1, Len(N1) - I + 1)

    If Tmp = "" Then ResetZero = "0" Else ResetZero = Tmp

End Function

*** Код формы:

0001:

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

Private Sub Form_Load()

    Dim A As Single

    Dim N1 As String, N2 As String

    N1 = String$(1000, "6")

    N2 = String$(1000, "3")

    A = Timer

    Dim sRes As String

    sRes = MultTrah(N1, N2)

    MsgBox "1000-разрядные числа перемножились за " & Timer - A & " сек."

    MsgBox "Результат: " & sRes

End Sub

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

Вопрос #000194: Вопрос_экспертам

Автор вопроса: Роман // 12.05.2007 / 11:56

Уважаемые господа Эксперты, подскажите пожалуйста как средствами VB написать гитарный тюнер? т.е. каким образом получать данные с микрофонного либо с линейного входа звуковой карты? 

Заранее благодарен.
Роман.

Отвечает: Алексей Немиро // 12.05.2007 / 11:56

Здравствуйте,

Попробуйте посмотреть примеры в этом разделе:
http://kbyte.ru/Samples/ShowGroup.aspx?id=12

Думаю,Вас заинтересуют вот эти примеры:

- Программа может записывать звук с микрофона, а затем воспроизводить его. Пример можно легко
усовершенствовать.
http://kbyte.ru/Samples/zip/rec-and-play.zip 


Данный исходный код демонстрирует как можно получать байты с звукого устройства Как определить звуковой спектор Как построит простой, половинчетый, линейный и точечный анализатор звукого сигнала Как работать с библиотекой "winmm.dll" Исходный код распростроняется свободно При добавлени изменений и модификации кода,
любезно прошу выслать мне копию В исходнике тчательно описаны все функции и команды Пример очень красиво получиося. Работоспасиобность 100%. Работает на всех ОС.
http://kbyte.ru/Samples/zip/SpectrumAnalyzer.rar 




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

Вопрос #000189: VisualBasic_6.0_-_разрешение_экрана

Автор вопроса: Евгений // 11.05.2007 / 14:46

Уважаемые Эксперты! 
У меня такой вопрос: Возможно ли сделать так, что при открытии программы, созданной в vb6, разрешение (размер экрана) будет устанавливатся на 1024х768,а при закрытии программы - восстанавливаться исходное разрешение. И если возможно, то как? 
Заранее благодарен!

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

Здравствуйте,

0001:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0029:

0030:

0031:

0032:

0033:

0034:

0035:

0036:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0045:

0046:

0048:

0049:

0050:

0051:

0052:

0053:

0054:

0056:

0058:

0059:

0060:

0061:

0062:

0063:

0064:

0065:

0066:

0067:

0068:

0070:

0071:

0072:

0073:

0074:

0075:

0076:

0077:

0078:

0079:

0080:

0081:

0082:

0083:

0084:

0085:

0086:

0088:

0089:

0090:

0091:

0092:

0093:

0094:

0095:

0096:

0097:

0099:

0100:

0101:

0102:

0103:

0104:

Option Explicit

Const WM_DISPLAYCHANGE = &H7E

Const HWND_BROADCAST = &HFFFF&

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Const CCDEVICENAME = 32

Const CCFORMNAME = 32

Const DM_BITSPERPEL = &H40000

Const DM_PELSWIDTH = &H80000

Const DM_PELSHEIGHT = &H100000

Const CDS_UPDATEREGISTRY = &H1

Const CDS_TEST = &H4

Const DISP_CHANGE_SUCCESSFUL = 0

Const DISP_CHANGE_RESTART = 1

Const BITSPIXEL = 12

Private Type DEVMODE

    dmDeviceName As String * CCDEVICENAME

    dmSpecVersion As Integer

    dmDriverVersion As Integer

    dmSize As Integer

    dmDriverExtra As Integer

    dmFields As Long

    dmOrientation As Integer

    dmPaperSize As Integer

    dmPaperLength As Integer

    dmPaperWidth As Integer

    dmScale As Integer

    dmCopies As Integer

    dmDefaultSource As Integer

    dmPrintQuality As Integer

    dmColor As Integer

    dmDuplex As Integer

    dmYResolution As Integer

    dmTTOption As Integer

    dmCollate As Integer

    dmFormName As String * CCFORMNAME

    dmUnusedPadding As Integer

    dmBitsPerPel As Integer

    dmPelsWidth As Long

    dmPelsHeight As Long

    dmDisplayFlags As Long

    dmDisplayFrequency As Long

End Type

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean

Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

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

Dim OldX As Long, OldY As Long, nDC As Long

Sub ChangeRes(X As Long, Y As Long, Bits As Long)

    Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult

    'Get the info into DevM

    erg = EnumDisplaySettings(0&, 0&, DevM)

    'This is what we're going to change

    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL

    DevM.dmPelsWidth = X 'ScreenWidth

    DevM.dmPelsHeight = Y 'ScreenHeight

    DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)

    'Now change the display and check if possible

    erg = ChangeDisplaySettings(DevM, CDS_TEST)

    'Check if succesfull

    Select Case erg&

        Case DISP_CHANGE_RESTART

            an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")

            If an = vbYes Then

                erg& = ExitWindowsEx(EWX_REBOOT, 0&)

            End If

        Case DISP_CHANGE_SUCCESSFUL

            erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

            ScInfo = Y * 2 ^ 16 + X

            'Notify all the windows of the screen resolution change

            SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo

            MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"

        Case Else

            MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"

    End Select

End Sub

Private Sub Form_Load()

    Dim nDC As Long

    'retrieve the screen's resolution

    OldX = Screen.Width / Screen.TwipsPerPixelX

    OldY = Screen.Height / Screen.TwipsPerPixelY

    'Create a device context, compatible with the screen

    nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)

    'Change the screen's resolution

    ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'restore the screen resolution

    ChangeRes OldX, OldY, GetDeviceCaps(nDC, BITSPIXEL)

    'delete our device context

    DeleteDC nDC

End Sub

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

Вопрос #000187: Как это делать!

Автор вопроса: Sergey1650 // 11.05.2007 / 11:08

Люди добрые подскажите чайнику как на VB6 работать с большими числами типа как MS Calkulyator. Plizzzzzz!

Отвечает: Алексей Немиро // 11.05.2007 / 11:08

Здравствуйте,

Не совсем понятен вопрос, так что извините, если ответ будет таким же
не понятным, или не полным ;)

0001:

0002:

0003:

0004:

0005:

0006:

Private Sub Form_Load()

  Dim x As Double, y As Double

  x = 1.5E+32

  y = 4.231E+233

  MsgBox x + y

End Sub

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

Вопрос #000185: доступ к базе данных

Автор вопроса: Алёна // 11.05.2007 / 04:38

Здравствуйте, expert.

Подскажите пожалуйста, как открыть базу данных, созданную в MS ACCESS
2000, в visual basic 6.0?    Когда я прописываю путь для ее открытия,
выдается сообщение: неправильный формат базы данных.

-- 
С уважением,
 Алёна                          mailto:ksd2002@list.ru

Отвечает: Алексей Немиро // 11.05.2007 / 04:38

Здравствуйте,

Создайте стандартный EXE-проекта. Добавьте ссылку на библиотеку MS
DAO 3.6 (меню Проект => Ссылки => Microsoft DAO 3.6 Object Library).
Для чтения данных из базы данных, используйте следующий код:

0001:

0002:

0003:

0004:

0006:

0007:

0009:

0010:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

'создание необходимых объектов

Dim RS As DAO.Recordset 

Dim db As DAO.Database 

Dim strSQL As String 

'подключение к базе данных Access 

Set db = DAO.OpenDatabase(App.Path & "\db.mdb") 

'стандартный SQL-запрос на выборку данных 

strSQL = "SELECT * FROM tblMain ORDER BY id" 

  'выполнение запроса 

  Set RS = db.OpenRecordset(strSQL) 

  'проверка количества записей в БД 

  RS.MoveLast: RS.MoveFirst 

  If RS.RecordCount > 0 Then 

    'перебор данных 

    Do Until RS.EOF 

      'вывод данных 

      Debug.Print RS("id") 

      'следующая запись 

      'ВНИМАНИЕ: если эту строку пропустить 

      'получится бесконечный цикл 

      'и программа зависнет! 

      RS.MoveNext 

    Loop 

  End If

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

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

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

Наверх

Голосование на Kbyte.Ru

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.

Пользуетесь ли Вы системой «Эксперт» на нашем сайте?
На нашем сайте работает система «Эксперт», через которую любой желающий может задать вопрос Экспертам в области программирования и информационных технологий.
Да, только ей и пользуюсь! (1)
Да, периодически использую (2)
Вашей – нет, но иногда использую другие подобные системы (0)
Нет, предпочитаю использовать форумы (4)
Нет, мне это вообще не надо (0)
А как ей пользоваться? (0)
Нет, а что это? (1)

Всего голосов: 8

Голосование на Kbyte.Ru

Наверх

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

Копирование наиболее нового файла из списка файлов | Автор: Igor
Добавлено: 15.05.2007 / 00:18 | ответов: 15 | просмотров: 26

* имеется папка: d:\Bad
* в папке несколько файлов, причем имена этих файлов является дата их создания:
c20070510.html
c20070511.html
c20070512.html
дата появлени нового файла не известна.
нужен код,который будет помещен в планировщик заданий и при запуске 2 раза в день
(или каждые 30мин) искал в папке d:\Bad новый файл,
копировал его в C:\series\ под именем index.html

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

Реестр и win64 | Автор: MArtmath
Добавлено: 14.05.2007 / 15:42 | ответов: 0 | просмотров: 9

Лююди помогите кто чем может-почему в 32 все работает а в 64 нифига....(lResult-no parasan)???
Public Function GetString(Hkey As Long, strPath As String, strValue As String)
Dim keyhand As Long
Dim datatype As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer
r = RegOpenKey(Hkey, strPath, keyhand)
lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, " ")
lResult = RegQueryValueEx(keyhand, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)

If lResult = ERROR_SUCCESS Then
intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
GetString = Left$(strBuf, intZeroPos - 1)
Else
GetString = strBuf
End If
End If
End If
Else
GetString = "NO"
End If
RegCloseKey keyhand
End Function
Заранее спс...

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

Программирование с использованием Windows API | Автор: Игорь Голов
Добавлено: 14.05.2007 / 14:01 | ответов: 1 | просмотров: 19

Составить программу, используя Windows API:

"Формируется группа переключателей для выбора стилей простого редактора текста (ES_AUTOHSCROLL, ES_AUTOVSCROLL, ES_LEFT, ES_RIGHT, ES_CENTER, ES_LOWERCASE, ES_UPPERCASE, ES_PASSWORD, ES_NUMBER, ES_OEMCONVERT), две кнопки и статическое окно. Нажатие на первую кнопку приводит к созданию многострочного текстового редактора с заданными стилями. Нажатие на вторую кнопку отображает выделенный пользователем текст в статическом окне"

Предпочитаемый язык: Visual Basic 6.0

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

Создание TCP - соединение на VB6 | Автор: A_XIII
Добавлено: 14.05.2007 / 03:30 | ответов: 1 | просмотров: 10

Как программно создать TCP - соединение на VB6?

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

Зайдите по этой ссылке, очень интересный сайт!! | Автор: Екатерина
Добавлено: 13.05.2007 / 16:05 | ответов: 1 | просмотров: 23

http://romashkovaekaterina.mylivepage.ru/

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

Медиа | Автор: pasha
Добавлено: 13.05.2007 / 13:52 | ответов: 1 | просмотров: 19

Как узнать длительность медиафайла, чтобы прикрутить прогресс?

2. Существуют ли функции приостановки и остановки м/файов? (кроме (pause C:\1.vaw) и т. п.)?

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

Проблема с проектом, помогите! | Автор: ZXC
Добавлено: 13.05.2007 / 13:07 | ответов: 12 | просмотров: 36

Ситуация такая, у меня Microsoft Visual Basic 2005 Express Edition
Не давно заметил что в проекте после запуска не работают изменения! т.е кинули на форму кнопку жмем F5 программа запускается НО, этой кнопки на форме нет, то же самое и с кодом, изменения вообще не вносятся после запуска, зато когда компилим программу, заходим в папку Release и запускаем её там, то всё ОК, все изменения видны, что делать? всё перепробовал, и чистил папку Debug и проект копировал в другое место, не чего не помогает, случалось такое у ково нибуть ещё? help!

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

Access DB | Автор: pasha
Добавлено: 13.05.2007 / 12:44 | ответов: 1 | просмотров: 16

У меня есть Access база и пространство имен с классами для полного или частичного сбора данных о книге.
Вот классы

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:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
Namespace
Book
  Public MustInherit Class clsBooks
    Private _Name As String
    Private _Annotation As String
    Public BookCollection As Collection = New Collection
    Public _Only As Boolean




    Public Property Name() As String
      Get
        Return _Name
      End Get
      Set(ByVal Value As String)
        _Name = Value

      End Set
    End Property
    Public Property Annotation() As String
      Get
        Return _Annotation
      End Get
      Set(ByVal Value As String)
        _Annotation = Value
      End Set
    End Property
    Public Property OnlyRead() As Boolean
      Get
        Return _Only
      End Get
      Set(ByVal Value As Boolean)
        _Only = Value
      End Set
    End Property

  End Class

  Public MustInherit Class Authors
    Inherits clsBooks
    Private _Author1 As String
    Private _Author2 As
String
    Private _OtherAuthors
    Private _Proof_Reader As String
    Private _Editor As String
    Private _Translator As
String
    Public Property Author1()
      Get
        Return _Author1
      End Get
      Set(ByVal
Value)
        _Author1 = Value
      End Set
    End Property
    Public Property Author2()
      Get
        Return _Author2
      End Get
      Set(ByVal Value)
        Author2 = Value
      End Set
    End
Property
    Public Property OtherAuthors()
      Get
        Return _OtherAuthors
      End Get
      Set(ByVal Value)
        _OtherAuthors = Value
      End Set
    End Property
    Public Property Editor()
      Get
        Return _Editor
      End Get
      Set(ByVal Value)
        _Editor = Value
      End Set
    End Property

    Public Property Proof_Reader()
      Get
        Return _Proof_Reader
      End Get
      Set(ByVal Value)
        _Proof_Reader = Value
      End Set
    End Property
    Public Property Translator()
      Get
        Return _Translator
      End Get
      Set(ByVal Value)
        _Translator = Value
      End
Set
    End Property
  End Class
  Public MustInherit Class BookAllInfo

    Inherits Authors

    Private _ISBN
As String
    Private _BBK As String
    Private _Publishing As String
    Private _Publicyear As String
    Public Property ISBN()
      Get
        Return _ISBN
      End Get
      Set(ByVal Value)
        _ISBN
= Value
      End Set
    End Property
    Public Property BBK()
      Get
        Return
_BBK
      End Get
      Set(ByVal Value)
        _BBK = Value
      End Set
    End Property
    Public Property Publishing()
      Get
        Return _Publishing
      End Get
      Set(ByVal Value)
        _Publishing = Value
      End Set
    End Property
    Public Property Publicyear()
      Get
        Return _Publicyear
      End Get
      Set(ByVal Value)
        _Publicyear = Value
      End Set
    End
Property
  End Class
End Namespace

Наверное кто english знает, поймет :)

001:
002:
003:
004:
005:
006:
007:
'General Declarations
Imports Библиотека.Book

'Создаем переменную для управления
Dim bk As New AllBookInfo

'Присваиваем свойсвам переменной тексты из текстбоксов (эту часть я опустил)

Мне, собственно, нужен код для сохранения в бд data.mdb (table books) значений свойств переменной, каждое
свойство в свое поле записи в таблице.

Всем спасибо!

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

Конкурс на лучший пример кода! | Автор: Алексей
Добавлено: 13.05.2007 / 11:31 | ответов: 2 | просмотров: 19

Господа, почему так мало участников в конкурсе на лучший пример кода?
Всего два участника, притом, что конкурс проводится с 17 марта?! Уже в конце мая конкурс будет завершен и будут подведены итоги!

Так почему же так мало участников?

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

MsSQL и ASP.NET | Автор: Kolya007
Добавлено: 12.05.2007 / 19:28 | ответов: 2 | просмотров: 16

Какой из SQL Server Management наиболее функционален? Какое расширение имеет БД? И как к ней подключится через ASP.NET?

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

Наверх

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

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

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

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

Не так давно мне пришлось немного поработать 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 | просмотров: 2671

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

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

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

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

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

Описание ошибок VB
Автор: [root] | добавлено: 29.07.2006 / 06:58 | просмотров: 3461

В данном обзоре содержится русскоязычное описание ошибок Visual Basic 5.0/6.0.

Горячие клавиши VB 6.0
Автор: [root] | добавлено: 20.07.2006 / 13:21 | просмотров: 1827

В данном обзоре рассмотрены горячие клавиши Visual Basic 5.0/6.0, которые значительно ускоряют процесс разработки и тестирования программ.

ASP .NET 2.0: Файл Global.asax
Автор: Немиро Алексей | добавлено: 17.07.2006 / 18:04 | просмотров: 2210

Файл Global.asax является необязательным файлом приложений ASP .NET и содержит дополнительный код, отвечающий за обработку событий, происходящих на уровне приложения. Этот файл должен находиться в корневом каталоге Web-приложения. В ASP .NET 1.1 сей файл автоматически создавался Visual Studio при создании нового Web-проекта, в ASP .NET 2.0 Visual Studio Global.asax автоматически не создает, но его можно добавить в проект вручную. Все изменения, внесенные в файл Global.asax отслеживаются средой ASP .NET, и приложение перезагружается...

Как узнать страну по IP-адресу?
Автор: Amit Gupta | добавлено: 17.07.2006 / 08:09 | просмотров: 35342

Интернет широко распространен в большинстве стран и континентов. Узнать страну посетителей вашего веб-сайта может быть не легкой задачей, особенно если вы не знаете как это сделать...

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word
Автор: John D. Conway | добавлено: 17.07.2006 / 06:16 | просмотров: 3185

В этой статье мы создадим пример базы данных Microsoft Access и пользовательский интерфейс в среде Visual Basic 6.0. Сделать это будет относительно несложно, поскольку для работы с нашей базой данных мы будем использовать компонент ADODC Componenet (Microsoft ADO Data Control 6.0 (OLEDB)). Мы добавим DataEnvironment и DataReport и буквально, в течении минуты, мы уже сможем экспортировать наш DataReport в Microsoft Word Document. (.doc)...

Статьи на Kbyte.Ru

Наверх

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

Как можно скрыть заголовок формы?
Дата добавления: 31.07.2006 / 12:04 | просмотров: 408 | платформа: VB

Как проверить корректность E-Mail?
Дата добавления: 17.08.2006 / 18:18 | просмотров: 453 | платформа: VB

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

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

Анализ IP-адреса
Дата добавления: 24.03.2007 / 10:56 | просмотров: 100 | платформа: RegEx

Как удалить лишние пробелы из текста?
Дата добавления: 16.08.2006 / 19:05 | просмотров: 456 | платформа: VB

Как программно установить/получить значение текстового поля (HtmlInputTextBox)?
Дата добавления: 31.07.2006 / 16:15 | просмотров: 612 | платформа: ASP .NET (VB)

Преобразование строки в Double, исключая проблемы с разделителем
Дата добавления: 27.04.2007 / 15:53 | просмотров: 51 | платформа: VB .NET

Как узнать дату создания/изменения файла?
Дата добавления: 31.07.2006 / 12:42 | просмотров: 689 | платформа: VB

Пример добавления окончания к числу (англ.)
Дата добавления: 24.03.2007 / 12:33 | просмотров: 110 | платформа: VB .NET

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

Наверх

Юмор на Kbyte.Ru

В тридевятом царстве, в тридесятом государстве жил-был Иван-дурак, и была у него триодиннадцатая винда...

Рейтинг: 27
Всего голосов: 46