VBNet - Форум - Перенос каретки этажом ниже

Вопрос: Перенос каретки этажом ниже Добавлено: 22.02.11 09:25

Автор вопроса: Котяра

Доброго времени суток всем! У меня следующий вопрос: в одной программе получается сделать перенос каретки этажом ниже, а в другой нет. Привожу пример кода, первой идёт правильная программа.

Public Class Form1
    Dim strTeam As String
    Private Sub btnMkt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMkt.Click
        Dim strMkt_Position As String
        AddName(strTeam:="Nemarketing", strRet_string:=strMkt_Position) 'надпись на окне ввода и передача данных из функции
        txbBaza.Text = txbBaza.Text & strMkt_Position
    End Sub
End Class

Module Module1

    Sub AddName(ByVal strTeam As String, ByRef strRet_string As String)
        Dim strName, strPrompt, strWrap_Character As String
        strPrompt = "Введи сотрудника отдела " & strTeam & "."
        strName = InputBox(strPrompt, "Ждёмсс") 'надпись на окне ввода и заголовок
        strWrap_Character = Chr(13) + Chr(10) 'перенос текста этажом ниже
        strRet_string = strName & strWrap_Character
    End Sub

End Module

А теперь программа, которая не работает.

Private Sub btnPechat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPechat.Click
        Dim strPosition As String
        Summa(strRet_String:=strPosition)
        TextBox1.Text = TextBox1.Text & strPosition

    End Sub

Module Module1
    Dim intPervaya_Peremennaya, intVtoraya_Peremennaya, intSumma As Integer
    Dim strRet_String As String

    Sub Summa(ByRef strRet_String As Integer)
        Dim strWrap_Character, strSumma As String
        intPervaya_Peremennaya = InputBox("Вводим первую переменную")
        intVtoraya_Peremennaya = InputBox("Вводим вторую переменную")
        intSumma = intPervaya_Peremennaya + intVtoraya_Peremennaya
        strSumma = CStr(intSumma)
        strWrap_Character = Chr(13) + Chr(10)
        strRet_String = strSumma & strWrap_Character

    End Sub
End Module

Также прошу извинить за ламерство, я ещё только учусь
Ответить

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

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 22.02.11 10:53
	Sub Summa(ByRef strRet_String As Integer) -> Sub Summa(ByRef strRet_String As String) Ответить

Страница: 1 |