小编Sid*_*out的帖子

我有JPEG图像到我的本地驱动器.我想将JPEG图像转换为BMP,然后将托盘应用于所有转换的BMP图像.

请建议我这可能是最好的方法.托盘是.pal文件.

我创建了一个包含 2 个项目的简单解决方案。第一个项目（类库）包含一个名为 Container 的自定义控件，它用圆角绘制自己。第二个项目（windows 窗体）是一个测试应用程序。

如果我在第二个项目的主窗体中添加一个 Container 实例，它会很好地显示圆角。此外，当我运行第二个项目时，我可以看到容器。

但是，当我开始移动表单（单击并按住标题栏）时，尤其是当我移动它非常快时，所有的绘图都被弄乱了，一遍又一遍地绘制但没有先清除它的表面...

我可以在 Form1.Move 事件中调用 Container1.Refresh()，但我不想每次都设置它，因为这也意味着我必须在Form1.Resize事件中调用 Container1.Refresh()并且谁知道其他哪个事件.. .

Container（控件）类本身是否有事件，我应该在其中调用 Me.Refresh() 或 Me.Update() 或 Me.Invalidate() ？

供参考（Form1.vb）

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move
    Me.Container1.Refresh()
End Sub
End Class

供参考（Container.vb）：

Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Container : Inherits Control
    Private _Gp As GraphicsPath

    Private Sub Container_Paint(ByVal …

我有一个自定义对象的通用列表,并希望将该列表减少到特定属性值不在排除列表中的对象.

我尝试过以下方法:

Private Sub LoadAddIns()
  // Get add-in templates
  Dim addIns = GetTemplates(TemplateTypes.AddIn)
  // Get the current document
  Dim sectionId As String = CStr(Request.QueryString("sectionId"))
  Dim docId As Integer = CInt(Split(sectionId, ":")(0))
  Dim manual = GetTempManual(docId)
  Dim content As XElement = manual.ManualContent
  // Find which templates have been used to create this document.
  Dim usedTemplates = (From t In content.<header>.<templates>.<template> _
                       Select CInt(t.<id>.Value)).ToList
  // Exclude add-ins that have already been used.
  If usedTemplates IsNot Nothing Then
    addIns = addIns.Where(Function(a) usedTemplates.Contains(a.TemplateID) = …

我创建了一个GUI来设置数据透视表.

例如,我单击button1它将运行并设置数据透视表.

当我点击时button3,它会有一个,run time error 1004因为它没有数据中的值.那么是否可以让VBA接受该错误并显示该数据不可用的提示？

顺便说一下,我正在使用它

ActiveSheet.PivotTables("PivotTable1").PivotFields("Test").CurrentPage = "Data1"

设置数据透视表.

有3个不同的变量; Data1,Data2,Data3.如果Data3不可用,它将显示错误,但我想提示它显示它不可用..如果您知道如何操作,请与我分享!谢谢!

我可以使用以下方法在选择之前和之后插入文本:

Selection.InsertBefore "start"
Selection.InsertAfter "end"

但我无法控制插入文本的样式.如何将新插入的文本设置为特定样式(并保留原始选定文本)？

嗨所有新的在excel中使用VBA并尝试创建一个查看数字并将其作为六位数返回的函数.

我写的尝试完成此功能的是下面但是当我在单元格中使用命令= Res(A1)时,我得到一个#VALUE!作为答案.

目前第一单元格中的值为30508.

任何人都可以提供解决方案的任何帮助将不胜感激.多谢你们.

Function Res(myval As Integer) As Integer

Res = 0

If ((myval > 0) And (myval < 10)) Then    
    Res = myval * 100000

ElseIf ((myval > 9) And (myval < 100)) Then
    Res = myval * 10000

ElseIf ((myval > 99) And (myval < 1000)) Then 
    Res = myval * 1000

ElseIf ((myval > 999) And (myval < 10000)) Then  
    Res = myval * 100

ElseIf ((myval > 9999) And (myval < 100000)) Then
    Res …

我有很多单元格包含一些数字和其他不相关的字符.例如,单元格可能看起来像:65f或11,345asd.

我的目标是删除这些单元格中除数字之外的所有内容,因此我可以使用这些数字进行进一步计算.我在不同的网站上发现了很多类似的问题,但它们非常具体,我仍然不明白如何正确地做到这一点.

所以问题是如何根据内容使用变化细胞或甚至一系列细胞？我有一些想法如何使用字符串函数替换它.但没有什么看起来不错.

谢谢!

我是Access和VBA的新手,并尝试开发一个简单的代码:将表导出到xls,打开它,简单操作(格式化),保存和关闭.

但是我在这个过程中收到以下消息框: "A file named RESUME.XLW" already exists in this location. Do you want to replace it?"

选择"是"将生成xls文件.但是当我尝试打开它时,Excel以只读模式运行,我不明白为什么.

我正在使用以下代码:

Sub FormataExcelPadrao(caminhoExcel As String)

Set arquivoExcel = CreateObject("Excel.Application")
arquivoExcel.Workbooks.Open (caminhoExcel)

With arquivoExcel
    For Each pagina In .Worksheets
        With pagina
            .Columns("A:Z").Autofit
            .Cells.Font.Size = "10"
            .Cells.Font.Name = "Calibri"
        End With
    Next pagina
End With

arquivoExcel.Save
arquivoExcel.Close

End Sub

提前致谢!

我正在研究VBA,我必须通过传递一些值来调用vbscript.

这是代码:

''VBA
'Below values are on different cells of Excel file which I am reading 
'into a global variable then pass it to vbscript.
'SFilename = VBscript file path
'QClogin = "abc"
'QCpassword = "abc"
'sDomain = "xyz"
'sProject = "xyz123"
'testPathALM = "Subject\xyz - Use it!\xyz_abc"
'QCurl = "http://xxx_yyy_zzz/qcbin/"
Set wshShell = CreateObject("Wscript.Shell")

Set proc = wshShell.exec("wscript " & SFilename & " " & QClogin & _
" " & "" & QCpassword & " " & "" …

我的VB 6的程序代码指的是14.0对象库中,它被编译并executed..working细用新的代码(访问14.0库).

在我的开发系统中,安装了Microsoft Office 2010(14.0库),我的新代码已编译并正常工作.

我正在使用这些库将文档转换为pdf.

我试图安装相同的VB 6程序的设置,在不同的机器,其中14.0库不存在跑,因为MS Office 2000的安装这台机器(12.0库)上.

安装程序安装成功,但程序在引用14.0库时抛出错误.

现在,我需要帮助在这方面,是,我怎样才能在新机器上安装14.0对象库,这样的引用将在那里为程序运行.

或者,请建议我任何其他方法来完成它..

谢谢