在vb中，当拖动Hscroll1滑块时，滑块的当前值显示在label1中。单击求和按钮，以 Label1中的值为n，计算表达式 “1+(1+2)+（1+2+3)+……•+(1+2+3+…•+n)之和，并在Text1显示计算结果

好，让我来回答你的问题。

以下是对应的 VB 代码：

在 Hscroll1 的 Scroll 事件中，将滑块当前值显示在 Label1 中：

Private Sub HScroll1_Scroll()
    Label1.Caption = HScroll1.Value
End Sub

在求和按钮的 Click 事件中，计算表达式并在 Text1 中显示结果：

Private Sub Command1_Click()
    Dim n As Integer
    Dim sum As Integer
    Dim i As Integer
    Dim j As Integer
    
    n = Label1.Caption
    
    For i = 1 To n
        For j = 1 To i
            sum = sum + j
        Next j
    Next i
    
    Text1.Text = sum
End Sub

希望这个代码能够帮助你解决问题。如果还有其他问题，随时可以问我哦！

相关问题

用WIN API 在DLL中创建一个带edit文本框的窗口程序

以下一个使用WIN API在DLL中创建一个带Edit文本框的窗口程序的示例代码：

#include <windows.h>

// 定义全局变量
HWND hwndEdit;

// 定义窗口过程
LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
    switch(msg)
    {
        case WM_CREATE:
            // 创建Edit文本框
            hwndEdit = CreateWindowEx(WS_EX_CLIENTEDGE, "EDIT", "", WS_CHILD | WS_VISIBLE | ES_MULTILINE | ES_AUTOVSCROLL | ES_AUTOHSCROLL, 
                                      0, 0, 100, 100, hwnd, (HMENU) 1, GetModuleHandle(NULL), NULL);
            break;
        case WM_DESTROY:
            // 销毁Edit文本框
            DestroyWindow(hwndEdit);
            PostQuitMessage(0);
            break;
        default:
            return DefWindowProc(hwnd, msg, wParam, lParam);
    }
    return 0;
}

// 定义导出函数
__declspec(dllexport) void CreateWindowInDLL()
{
    // 注册窗口类
    WNDCLASS wc = {0};
    wc.lpfnWndProc = WndProc;
    wc.hInstance = GetModuleHandle(NULL);
    wc.lpszClassName = "MyWindowClass";
    RegisterClass(&wc);

    // 创建窗口
    HWND hwnd = CreateWindowEx(0, "MyWindowClass", "My DLL Window", WS_OVERLAPPEDWINDOW, 
                               CW_USEDEFAULT, CW_USEDEFAULT, 500, 500, NULL, NULL, GetModuleHandle(NULL), NULL);
    ShowWindow(hwnd, SW_SHOWDEFAULT);

    // 进入消息循环
    MSG msg;
    while(GetMessage(&msg, NULL, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
}

在这个示例代码中，我们通过使用WIN API创建一个窗口类，然后在导出函数`CreateWindowInDLL`中创建一个窗口，并在窗口过程中创建一个Edit文本框。注意，我们需要将Edit文本框的句柄`hwndEdit`定义为全局变量，以便在窗口过程中可以访问它。最后，我们使用消息循环来处理窗口的消息。

MFC在登录窗口中增加设置界面控件对象上文字的字体、字号和颜色设置功能(可以在界面上添加按钮,单击后弹出如下所示的对话框)。具体代码

以下是MFC登录窗口中增加设置界面控件对象上文字的字体、字号和颜色设置功能的实现代码：

1.首先在登录窗口的资源文件(.rc)中添加一个按钮用于打开设置对话框，例如：

IDD_LOGIN DIALOGEX 0, 0, 320, 240
...
BUTTON      "设置",IDC_SETTING,230,130,80,25
...

2.在登录窗口的类头文件(.h)中添加一个成员变量用于保存设置对话框的指针：

class CLoginDlg : public CDialogEx
{
    ...
private:
    CSettingDlg* m_pSettingDlg; // 设置对话框指针
    ...
};

3.在登录窗口的类实现文件(.cpp)中添加按钮的响应函数，用于创建并显示设置对话框：

void CLoginDlg::OnBnClickedSetting()
{
    if (!m_pSettingDlg)
    {
        m_pSettingDlg = new CSettingDlg(this); // 创建设置对话框对象
    }
    m_pSettingDlg->ShowWindow(SW_SHOW); // 显示设置对话框
}

4.在项目中添加一个新的对话框资源(.rc)，用于实现设置对话框的界面，例如：

IDD_SETTING DIALOGEX 0, 0, 200, 150
...
EDITTEXT        IDC_EDIT_FONT,10,10,180,20,ES_AUTOHSCROLL
EDITTEXT        IDC_EDIT_SIZE,10,40,180,20,ES_AUTOHSCROLL
EDITTEXT        IDC_EDIT_COLOR,10,70,180,20,ES_AUTOHSCROLL
BUTTON          "字体",IDC_BUTTON_FONT,10,100,60,25
BUTTON          "颜色",IDC_BUTTON_COLOR,75,100,60,25
BUTTON          "确定",IDOK,115,125,40,15
...

5.在项目中添加一个新的对话框类(.h/.cpp)，用于实现设置对话框的逻辑，例如：

class CSettingDlg : public CDialogEx
{
    ...
public:
    CSettingDlg(CWnd* pParent = nullptr);   // 标准构造函数
    virtual ~CSettingDlg();
    ...
private:
    CFont m_font;         // 字体对象
    LOGFONT m_logFont;    // 字体信息
    COLORREF m_color;     // 颜色值
    ...
};

CSettingDlg::CSettingDlg(CWnd* pParent /*=nullptr*/)
    : CDialogEx(IDD_SETTING, pParent)
    , m_color(RGB(0, 0, 0))
{
    m_logFont.lfHeight = 16; // 默认字体大小为16
    m_logFont.lfWeight = FW_NORMAL; // 默认字体加粗为正常
    _tcscpy_s(m_logFont.lfFaceName, LF_FACESIZE, _T("宋体")); // 默认字体为宋体
    m_font.CreateFontIndirect(&m_logFont); // 根据字体信息创建字体对象
}

CSettingDlg::~CSettingDlg()
{
    m_font.DeleteObject(); // 释放字体对象
}

void CSettingDlg::DoDataExchange(CDataExchange* pDX)
{
    CDialogEx::DoDataExchange(pDX);
    DDX_Control(pDX, IDC_EDIT_FONT, m_editFont);
    DDX_Control(pDX, IDC_EDIT_SIZE, m_editSize);
    DDX_Control(pDX, IDC_EDIT_COLOR, m_editColor);
}

BEGIN_MESSAGE_MAP(CSettingDlg, CDialogEx)
    ON_BN_CLICKED(IDC_BUTTON_FONT, &CSettingDlg::OnBnClickedButtonFont)
    ON_BN_CLICKED(IDC_BUTTON_COLOR, &CSettingDlg::OnBnClickedButtonColor)
END_MESSAGE_MAP()

void CSettingDlg::OnBnClickedButtonFont()
{
    CFontDialog dlg(&m_logFont, CF_EFFECTS | CF_SCREENFONTS, nullptr, this);
    if (dlg.DoModal() == IDOK)
    {
        m_font.DeleteObject(); // 释放旧的字体对象
        m_font.CreateFontIndirect(&m_logFont); // 根据新的字体信息创建字体对象
        m_editFont.SetWindowText(m_logFont.lfFaceName); // 更新字体名称文本框
        m_editSize.SetWindowText(std::to_wstring(m_logFont.lfHeight).c_str()); // 更新字体大小文本框
    }
}

void CSettingDlg::OnBnClickedButtonColor()
{
    CColorDialog dlg(m_color, CC_FULLOPEN, this);
    if (dlg.DoModal() == IDOK)
    {
        m_color = dlg.GetColor(); // 获取选择的颜色值
        m_editColor.SetWindowText(std::to_wstring(m_color).c_str()); // 更新颜色值文本框
    }
}

6.在设置对话框中的确定按钮的响应函数中，获取并保存字体、字号和颜色等设置，并将其应用到登录窗口中界面控件的文本属性中，例如：

void CSettingDlg::OnOK()
{
    CString strFont, strSize, strColor;
    m_editFont.GetWindowText(strFont); // 获取字体名称
    m_editSize.GetWindowText(strSize); // 获取字号文本
    m_editColor.GetWindowText(strColor); // 获取颜色值文本
    m_logFont.lfHeight = _wtoi(strSize); // 转换字号为整数
    _tcscpy_s(m_logFont.lfFaceName, LF_FACESIZE, strFont); // 复制字体名称
    m_font.DeleteObject(); // 释放旧的字体对象
    m_font.CreateFontIndirect(&m_logFont); // 根据新的字体信息创建字体对象
    m_color = _wtoi(strColor); // 转换颜色为整数
    CWnd* pWnd = GetParent()->GetDlgItem(IDC_USERNAME); // 获取用户名编辑框对象
    if (pWnd)
    {
        pWnd->SetFont(&m_font); // 设置字体对象
        pWnd->SetTextColor(m_color); // 设置文本颜色
    }
    pWnd = GetParent()->GetDlgItem(IDC_PASSWORD); // 获取密码编辑框对象
    if (pWnd)
    {
        pWnd->SetFont(&m_font); // 设置字体对象
        pWnd->SetTextColor(m_color); // 设置文本颜色
    }
    CDialogEx::OnOK();
}

这样，就完成了在MFC登录窗口中增加设置界面控件对象上文字的字体、字号和颜色设置功能的实现。