diegoinfo

Achei este código, e testei. Ele muda direto a resolução. Declaration: Option Explicit Private Const EWX_REBOOT = 2 Private Const CCDEVICENAME = 32 Private Const CCFORMNAME = 32 Private Const DM_BITSPERPEL = &H40000 Private Const DM_PELSWIDTH = &H80000 Private Const DM_PELSHEIGHT = &H100000 Private Const CDS_UPDATEREGISTRY = &H1 Private Const CDS_TEST = &H4 Private Const DISP_CHANGE_SUCCESSFUL = 0 Private Const DISP_CHANGE_RESTART = 1 Private Type typDevMODE 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, _ lptypDevMode As Any) As Boolean Private Declare Function ChangeDisplaySettings Lib _ "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, _ ByVal dwFlags As Long) As Long Private Declare Function ExitWindowsEx Lib _ "user32" (ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long Código: Public Function ChangeDisplayResolution(NewWidth As Long, _ NewHeight As Long) As Boolean 'Usage: ChangeDisplayResolution 800, 600 'Returns: True if succesful, false otherwise 'Comments: Problems have been reported using this code for 'resolutions higher than 1024 X 768. We recommend not using this 'snippet to go above this limit. Dim typDM As typDevMODE Dim lRet As Long Dim iResp As Integer 'typDM = pointer to info about current 'display settings lRet = EnumDisplaySettings(0, 0, typDM) If lRet = 0 Then Exit Function ' Set the new <B style="color:black;background-color:#A0FFFF">resolution</B>. With typDM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = NewWidth .dmPelsHeight = NewHeight End With 'Do the update -- Pass update structure to 'ChangeDisplaySettings API function lRet = ChangeDisplaySettings(typDM, CDS_UPDATEREGISTRY) Select Case lRet Case DISP_CHANGE_RESTART iResp = MsgBox _ ("You must restart your computer to apply these changes." & _ vbCrLf & vbCrLf & "Restart now?", _ vbYesNo + vbInformation, "Screen <B style="color:black;background-color:#A0FFFF">Resolution</B> Changed") If iResp = vbYes Then ChangeDisplayResolution = True Reboot End If Case DISP_CHANGE_SUCCESSFUL ChangeDisplayResolution = True Case Else ChangeDisplayResolution = False End Select End Function Private Sub Reboot() Dim lRet As Long lRet = ExitWindowsEx(EWX_REBOOT, 0) End Sub você pode tirar a parte do reboot, nem precisa reiniciar a máquina. falou

Preciso fazer um programa que localize o caminho de um outro arquivo. Vai ser um programa de atualização. Ele procura o outro no C:, e se sobrepõe. O problema é saber o caminho deste arquivo (o antigo, que vai ser sobreposto). Tem como fazer isso? Vlw desde já obs: este arquivo (programa) é instalado com um instalador, tem pasta no Iniciar e desinstalador. Dá pra fazer isso usando o registro do windows? Se sim como?

Já encontrei um código para busca interna. E o título da página e descrição não estão aparecendo com os acentos. Aparece o código, exemplo: Geologia e Funda&ccedil;&otilde;es Gostaria de saber se tem como arrumar isso e se tem como mostrar o trecho com a palavra procurada que nem acontece no google. O código para pegar o título e a descrição: strPageTitle = Server.HTMLEncode(GetFileMetaTag("<title>", "</title>", strFileContents)) strPageDescription = Server.HTMLEncode(GetFileMetaTag("<meta name=""description"" content=""", "/>", strFileContents)) strPageKeywords = Server.HTMLEncode(GetFileMetaTag("<meta name=""keywords"" content=""", "/>", strFileContents)) Vlw

vlw pessoal

Uso o Jmail. Mas ele suporta aspmail tb.

Alguém sabe como faz para mandar e-mail com um arquivo em anexo? Vou usar isso para as pessoas mandarem seus currículos (.doc) pelo site da empresa.

Esse 2 e 3 seriam o que? (campoRegistro,2) (campoRegistro,3)

Preciso fazer um programa que utiliza o seguinte código. 04***025 Os dois primeiros são o ano. Os três últimos é o número do serviço (que podem ser vários). E os três do meio (que estão em *) precisam ser incrementados de acordo com o número do serviço. Por exemplo: para o serviço 021 existem: 04001021 até 04150021 isto é, o próximo código deve ser 04151021. Queria saber se é possível fazer isso. Fazer uma instrução sql que filtre apenas os 3 dígitos do meio (*). vlw

Pessoal foi mal. Já arrumei. Era um problema de lógica. Vlw pela ajuda

continua não funcionando

Isso tb não funcionou!!! Preciso disso urgente. Quando a gente tá com pressa nada funciona.

Alguém sabe como é a síntaxe sql para verificar campos Sim/Não do Access?????? Já usei: sql = "Select * Clientes where CLI = True" sql = "Select * Clientes where CLI = Sim" E não funciona, ele não filtra.

vlw cara você salvou meu dia heheheh

Preciso colocar os registros de uma tabela numa grid. Só que quando tem campo vazio dá erro. Já tentei if tab.fields(i) = null if tab.fields(i) = empty if tab.fields(i) = "" e nada adianta. Continua dando erro, até na verificação. Alguém sabe me ajudar????????? Vlw Preciso disso pra hoje até o final da tarde.

O DigitalWeb InstallWizard tb é bom. Procura no superdownloads que tem.

Descobri, o problema é a versão do OLEDB. Só mudei pra 3.51 e pronto. Vivendo e aprendendo. Hehehe

Global Conexao As New ADODB.Connection Global Clientes As New ADODB.Recordset Global sql As String Sub BancoDeDados() On Error GoTo TrataErro Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\eptsystem.mdb" Exit Sub TrataErro: MsgBox "Erro interno." End End Sub Está dando erro na linha: Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\eptsystem.mdb" Aparece a seguinte mensagem: Run-time error '-2147467259 (80004005)': Não foi possível abrir tabela 'MSysAccounts' no arquivo de informações do grupo de trabalho. Referências: Microsoft ActiveX Data Objects 2.1 Library Microsoft DAO 3.51 Object Library Microsoft Data Binding Colletion Já testei em vários micros e acontece o mesmo erro. No micro que eu estou fazendo e testando o código se eu iniciar o projeto novamente e copiar os códigos para este novo projeto. Não dá problema. Mas se eu for tentar rodar outro dia o erro acontece de novo. Fiz outros aplicativos que acessavam da mesma forma e nos mesmos micros e não deu problema. E este último eu não estou conseguindo. Alguém poderia me ajudar?